Отсортировать каждый столбец с четным номером по неубыванию - Pascal ABC

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

Дана целочисленная прямоугольная матрица размера M*N. Отсортировать каждый столбец с четным номером по неубыванию, а каждый столбец с нечетным номером по невозрастанию.

Решение задачи: «Отсортировать каждый столбец с четным номером по неубыванию»

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

const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j,k:byte;
    x:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
for j:=1 to n do
for i:=1 to m-1 do
for k:=i+1 to m do
if (odd(j)and(a[i,j]<a[k,j]))
or (not odd(j)and(a[i,j]>a[k,j])) then
 begin
  x:=a[i,j];
  a[i,j]:=a[k,j];
  a[k,j]:=x;
 end;
writeln('Сортировка столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

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

Данный код написан на языке Pascal ABC и выполняет следующие действия:

В первой части кода задаются константы и переменные:
- nmax - максимальное количество строк и столбцов в матрице (задается значением 10);
- a - массив для хранения матрицы (инициализируется переменной a со типом array[1..nmax,1..nmax] of integer);
- m, n, i, j, k - байтовые переменные для индексации строк и столбцов матрицы;
- x - переменная для временного хранения значения элемента матрицы.
Во второй части кода происходит чтение количества строк и столбцов из ввода пользователя.
В третьей части кода выводится исходная матрица. Для этого выполняется цикл for i:=1 to m do, внутри которого идет цикл for j:=1 to n do, а внутри него - цикл for k:=i+1 to m do. Внутри каждого внутреннего цикла вычисляется значение элемента матрицы a[i,j] и выводится его на экран.
В четвертой части кода выполняется сортировка столбцов матрицы. Для этого используется алгоритм сортировки выбором. Выполняется цикл for i:=1 to m do, внутри которого идет цикл for j:=1 to n do. Внутри каждого внутреннего цикла вычисляется значение элемента матрицы a[i,j] и сравнивается с значением элемента a[k,j] (где k - переменная, инициализированная значением i+1). Если текущий элемент меньше или равен элементу a[k,j], то значения меняются местами с помощью операции присваивания a[i,j]:=a[k,j].
В пятой части кода выводится отсортированная матрица. Выполняется цикл for i:=1 to m do, внутри которого идет цикл for j:=1 to n do, а внутри него - цикл for k:=i+1 to m do. Внутри каждого внутреннего цикла выводится значение элемента матрицы a[i,j]. Таким образом, данный код выполняет сортировку столбцов матрицы по возрастанию, используя алгоритм сортировки выбором.