(Код паскаль)Задана матрица M(N,M). Упорядочить по убыванию элементы каждого столбца матрицы . Примечание: для простоты матрицу заполнять случайными числами в интервале [0,100], используя функции random и randomize.

uses crt; var i,j,k,n,m,t:integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('Bazovui massiv'); for i:=1 to m do for j:=1 to n do mas[i,j] :=random(100); for i:=1 to m do begin writeln; for j:=1 to n do write (mas[i,j],' '); end; writeln; for i:=1 to m do for j:=1 to n do for k:=1 to n-1 do if mas[i,k]>mas[i,k+1] then Begin t:=mas[i,k]; mas[i,k]:=mas[i,k+1]; mas[i,k+1]:=t; End; writeln; writeln('Massiv posle obrabotki') ; for i:=1 to m do begin writeln; for j:=1 to n do write (mas[i,j],' '); end; end. uses crt; var i,j,k,n,m,t:integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('Bazovui massiv'); for i:=1 to m do for j:=1 to n do mas[i,j] :=random(100); for i:=1 to m do begin writeln; for j:=1 to n do write (mas[i,j],' '); end; writeln; for i:=1 to m do for j:=1 to n do for k:=1 to n-1 do if mas[i,k]>mas[i,k+1] then Begin t:=mas[i,k]; mas[i,k]:=mas[i,k+1]; mas[i,k+1]:=t; End; writeln; writeln('Massiv posle obrabotki') ; for i:=1 to m do begin writeln; for j:=1 to n do write (mas[i,j],' '); end; end.