Pascal abc.

Дан одномерный массив (вводится с клавиатуры).

Преобразовать массив таким образом, чтобы сначала располагались все элементы равные 0, а потом все остальные.

Program Massiv;

Const n = 5;

Var a: Array [1 ... n] of Integer;

tmp, c, i: Integer;

Begin

WriteLn ('Введите ', n, ' чисел через пробел') ;

For i : = 1 To n Do

Read (a[i]) ;

c : = 1;

For i : = 1 To n Do

If a[i] = 0 Then

Begin

tmp : = a[c];

a[c] : = a[i];

a[i] : = tmp;

c : = c + 1;

End;

WriteLn ('Результат:') ;

For i : = 1 To n Do

Write (a[i], ' ') ;

ReadLn;

End.