Упорядочить каждый столбец матрицы по возрастанию. Массив размером M*N, элементы которого задаются датчиком случайных чисел на интервале [-17; 26].

Программа выводит начальный вариант массива построчно, затем отсортированный массив построчно.

program nomerstolb;

Var a: array[1 ... 50,1 ... 50] of integer;

b: array[1 ... 50] of integer;

i, j, m, n, max, jmax: integer;

Begin

Write (‘сколько строк?’) ; Readln (m) ;

Write (‘сколько столбцов?’) ; Readln (n) ;

For i:=1 to m do

begin

For j:=1 to n do

begin

write (‘a[‘, i,’,’, j,’]=’) ; readln (a[i, j]) ;

end;

for j:=1 to m do

begin

b[j]:=0;

for i:=1 to n do

if a[i, j]<0 then b[j]:=b[j]+1;

end;

max:=b[1]; jmax:=1;

For j:=2 to n do

begin

if b[j]>max then

begin

max:=b[j]; jmax:=j;

end;

end;

writeln (‘Наибольшее количество отрицательных элементов в ‘; jmax; ‘столбце’) ;

end;

end.

9. Упорядочить каждый столбец матрицы по возрастанию. Массив размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-17; 26].

program porydok;

Var a: array[1 ... 50,1 ... 50] of integer;