Максимальные элементы столбцов матрицы

Задача

Найти максимальный элемент для каждого столбца матриц размерностью NxN.

Решение

При переборе элементов матрицы по столбцам во внешнем цикле изменяется второй индекс, а во внутреннем - первый. Перед внутренним циклом предполагается, что первый элемент столбца двумерного массива - максимальный элемент данного столбца. Во внутреннем цикле, если обнаруживается, что текущий элемент больше уже найденного максимального, то соответствующая переменная перезаписывается на него.

Найденный максимум сразу выводится на экран или может быть сохранен в отдельном одномерном массиве, размерность которого соответствует количеству столбцов матрицы.

const N = 10;
var
    arr: array[1..N,1..N] of integer;
    max: integer;
    i,j: byte;    
begin
    randomize;
    for i:=1 to N do begin
        for j:=1 to N do begin
            arr[i,j] := random(1000);
            write(' |',arr[i,j]:3,'| ');
        end;
        writeln;
    end;
    for i:=1 to N do 
        write(' ----- ');
    writeln;
    for j:=1 to N do begin
        max := arr[1,j];
        for i:=2 to N do
            if arr[i,j] > max then
                max := arr[i,j];
        write('  ',max:3,'  ');
    end;
    writeln;
end.

Тема

Матрицы

Уровень

Простые задачи

Последняя редакция