Найти максимальный элемент массива - Pascal (4838)

Формулировка задачи:

Найти максимальный элемент массива А[5,5] и его индексы.

Решение задачи: «Найти максимальный элемент массива»

Листинг программы

const
    n = 5;
var
    arr : Array[1..n, 1..n] Of Integer;
    i, j, iMax, jMax : Byte;
begin
    for i := 1 to n do
        for j := 1 to n do
        begin
            Write('arr[', i, '][', j, ']=');
            ReadLn(arr[i, j]);
        end;
    iMax := 1; jMax := 1;
    for i := 1 to n do
        for j := 1 to n do
            if (arr[iMax, jMax] < arr[i, j])
            then
            begin
                iMax := i;
                jMax := j;
            end;
    WriteLn('max:   arr[', iMax, '][', jMax, ']=', arr[iMax, jMax]);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

n - количество элементов в массиве (в данном случае равно 5);
arr - массив целых чисел размером n x n;
i, j, iMax, jMax - переменные типа Byte для указания индексов максимальных элементов в массиве. Далее происходит чтение элементов массива с помощью цикла for, который выполняется два раза - один раз для строк и один раз для столбцов массива. Значения элементов записываются в переменные arr[i, j]. После этого инициализируются переменные iMax и jMax, которые будут использоваться для поиска максимального элемента. Начальные значения установлены равными 1. Затем снова используется цикл for, который выполняется два раза - один раз для строк и один раз для столбцов массива. Внутри цикла сравнивается значение элемента arr[iMax, jMax] с значением элемента arr[i, j]. Если значение arr[iMax, jMax] меньше значения arr[i, j], то это означает, что текущий элемент является максимальным, и его индексы сохраняются в переменных iMax и jMax. В конце выводится на экран максимальное значение с помощью функции WriteLn. Таким образом, данный код выполняет поиск максимального элемента в квадратном массиве целых чисел размером n x n.