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

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

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

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

Листинг программы

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.

Объяснение кода листинга программы

В данном коде на языке Turbo Pascal происходит следующее:

Объявляются переменные: i, j и m. Переменная i имеет тип Byte, переменная j также имеет тип Byte, а переменная m является массивом типа Integer, который будет использоваться для хранения чисел от 0 до 10.
Задается константа max, которая определяет максимальное количество элементов в массиве m.
В цикле for i:=1 до max происходит заполнение массива m случайными числами от 0 до 3.
После заполнения массива m числами, выводится каждое число из массива с помощью функции Write.
Затем происходит второй цикл for i:=1 до max. Внутри этого цикла выполняется вложенный цикл for j:=2 до max.
Внутри вложенного цикла проверяется условие: если текущий элемент m[j] равен нулю и предыдущий элемент m[j-1] не равен нулю, то выполняется следующая последовательность действий:
- tmp := m[j-1];
- m[j-1] := m[j];
- m[j] := tmp;
После выполнения вложенного цикла, выводятся все числа из массива m с помощью функции Write.
Конец программы.