Pascal abc.
Дан одномерный массив (вводится с клавиатуры).
Преобразовать массив таким образом, чтобы сначала располагались все элементы равные 0, а потом все остальные.

Program Massiv;Const n = 5;Var a: Array [1..n] of Integer;tmp, c, i: Integer;BeginWriteLn('Введите ', n, ' чисел через пробел');For i := 1 To n DoRead(a[i]);c := 1;For i := 1 To n DoIf a[i] = 0 ThenBegintmp := a[c];a[c] := a[i];a[i] := tmp;c := c + 1;End;WriteLn('Результат:');For i := 1 To n DoWrite(a[i], ' ');ReadLn;End.