программирование в среде Paskal

[nafa]

Составить программу сортировки по возрастанию столбцов матрицы А размером N*M.Переставить местами 1-ю и N-ю строки матрицы.

[Stilet]

Наработки есть?

[nafa]

Никаких пока, ещё блок схему составить надо

[Stilet]

Ок. Предлагаю сортировку в таком виде:

const n=5;m=4;
 var i,j,k,e:integer;a:array[1..n,1..m] of integer;
begin
 for i:=1 to n do begin
  for j:=1 to m do begin
   a[i,j]:=random(1000);
   write(a[i,j]:5);
  end; writeln;
 end; writeln;

 for i:=1 to m do begin
    for j:=1 to n do begin
      for k:=1 to n do begin
        if a[j,i]>a[k,i] then begin
         e:=a[j,i];a[j,i]:=a[k,i];a[k,i]:=e;
        end;
      end;
    end;
 end;

 for i:=1 to n do begin
  for j:=1 to m do begin
   write(a[i,j]:5);
  end; writeln;
 end; writeln;

  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.