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

Question

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

Answer 1

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.