Сортировка массивов. Упорядочить элементы массива так, чтобы в нечетных столбцах элементы располагались по убыванию - Turbo Pascal - Ответ 3064527

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,tmp,p,q: integer;
begin
  randomize;
  write('Введите размеры массива: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  for j:=1 to m do
  begin
    for p:=2 to n do
      for q:=n downto p do
      if j mod 2=0 then
        begin
          if a[q-1,j]>a[q,j] then
          begin
            tmp:=a[q-1,j];
            a[q-1,j]:=a[q,j];
            a[q,j]:=tmp;
          end;
        end else
        if j mod 2<>0 then
        begin
          if a[q-1,j]<a[q,j] then
          begin
            tmp:=a[q-1,j];
            a[q-1,j]:=a[q,j];
            a[q,j]:=tmp;
          end;
        end;
  end;
  
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:5);
    writeln;
  end;
  readln;
end.