Упорядочить каждый столбец матрицы по возрастанию. массив размером 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;