Найти максимальный элемент массива - Pascal (4838)
Формулировка задачи:
Найти максимальный элемент массива А[5,5] и его индексы.
Решение задачи: «Найти максимальный элемент массива»
textual
Листинг программы
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.