Найти максимальный элемент матрицы - Pascal (93036)

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

Дана целочисленная матрица 4х4. Найти максимальный элемент этой матрицы, результирующий элемент, вывести на экран заменяя на 0.

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

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

uses crt;
const n=4;
var a:array[1..4,1..4] of integer;
i,j,max:integer;
begin
clrscr;
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10);
end;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then
max:=a[i,j];
max:=0;
end;
writeln('max = ',max);
readkey;
end.

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

Объявление переменных: — a: массив размером 4x4 для хранения чисел — i, j: индексы для перемещения по матрице — max: переменная для хранения максимального числа
Инициализация матрицы случайными числами с помощью цикла for и функции randomize
Вывод содержимого матрицы на экран с помощью цикла for и функции write
Инициализация переменной max значением элемента a[1,1]
Проверка каждого элемента матрицы на предмет его больше чем max и обновление значения max при необходимости
Вывод значения max на экран с помощью функции writeln
Ожидание нажатия клавиши с помощью функции readkey
Завершение программы