Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом - все остальные - Turbo Pascal»

textual
Program mas_0inBegin;
Const max = 10;
Var
  i,j : Byte;
  m : array[1..max] of Integer;
  tmp : Integer;
Begin
  For i:=1 to max do
  Begin
    m[i]:=Random(3);
    Write(m[i],' ');
  End;
  Writeln;
  For i:=1 to max do
    For j:=2 to max do
      If (m[j]=0) and (m[j-1]<>0) then
      Begin
        tmp:=m[j-1];
        m[j-1]:=m[j];
        m[j]:=tmp;
      End;
  For i:=1 to max do Write(m[i],' '); Writeln;
End.

15   голосов, оценка 3.467 из 5


СОХРАНИТЬ ССЫЛКУ