Максимальные элементы столбцов матрицы
Найти максимальный элемент для каждого столбца матриц размерностью N строк M столбцов.
При переборе элементов матрицы по столбцам во внешнем цикле изменяется второй индекс, а во внутреннем - первый. Перед внутренним циклом предполагается, что первый элемент столбца двумерного массива - максимальный элемент данного столбца. Во внутреннем цикле, если обнаруживается, что текущий элемент больше уже найденного максимального, то значение переменной перезаписывается на него.
Найденный максимум сразу выводится на экран или может быть сохранен в отдельном одномерном массиве, размерность которого соответствует количеству столбцов матрицы.
const
N = 5;
M = 10;
var
arr: array[1..N, 1..M] of integer;
max: integer;
i,j: byte;
begin
randomize;
for i := 1 to N do begin
for j := 1 to M do begin
arr[i, j] := random(100);
write(arr[i, j]:4);
end;
writeln;
end;
for i := 1 to M do
write(' --');
writeln;
for j := 1 to M do begin
max := arr[1, j];
for i := 2 to N do
if arr[i, j] > max then
max := arr[i, j];
write(max:4);
end;
writeln;
end.
Пример выполнения программы:
9 1 39 91 65 93 88 87 75 25
16 96 90 17 99 36 53 72 41 3
82 62 14 53 47 52 73 17 21 39
56 52 41 24 83 45 48 12 85 55
76 31 54 47 71 13 66 84 94 8
-- -- -- -- -- -- -- -- -- --
82 96 90 91 99 93 88 87 94 55