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

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

Дана матрица А[1:4; 1:4]. а) найти минимальный и максимальный элементы матрицы б) определить число положительных элементов во второй и третьей строках в) получить среднеарифметическое значение матрицы г) заменить минимальный элемент в 3-ей строке на 0.

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

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

program Project1;
uses
var a:array[1..4,1..4] of integer;
    i,j,min,max,r,r1,minn:integer;
 
begin
 
min:=0;
max:=0;
minn:=0;
randomize;
 
for i:=1 to 4 do
for j:=1 to 4 do
a[i,j]:=random(10);{запрлняем массив}
 
for i:=1 to 4 do
begin;
for j:=1 to 4 do
write (a[i,j]:2);{выводим массив}
writeln;
end;
....................................
for i:=1 to 4 do
for j:=1 to 4 do
begin
if a[i,j]<min then min:=a[i,j];
end;
writeln ('min element',min); {находим и выводим мин}
...................................
for i:=1 to 4 do
for j:=1 to 4 do
begin
if a[i,j]>max then max:=a[i,j];
end;
writeln ('max element',max);{находим и выводим макс}
...................................
for i:=2 to 2 do
for j:=1 to 4 do
begin
if a[2,j]>0 then r:=r+1;
end;
writeln ('kol-vo elementov >0 vo 2i stroke',r);
.................................
for i:=3 to 3 do
for j:=1 to 4 do
begin
if a[3,j]>0 then r1:=r1+1;
end;
writeln ('kol-vo elementov >0 vo 3i stroke',r1);
.............................
for i:=3 to 3 do
for j:=1 to 4 do
begin
if a[3,j]<minn then minn:=a[3,j];
end;
for i:=3 to 3 do
for j:=1 to 4 do
begin
if a[3,j]=minn then a[3,j]:=0;
end;
for i:=1 to 4 do
begin;
for j:=1 to 4 do
write (a[i,j]:2);
writeln;
end;{находим и заменяем мин элемент третей строки на 0}
.............................
readln;
end.

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

Создается переменная a типа array[1..4,1..4] of integer. Это означает, что у нас есть матрица размером 4x4, где каждый элемент представлен целым числом.
Задаются начальные значения для переменных min, max и minn. Переменная min будет хранить минимальный элемент матрицы, max - максимальный, а minn - минимальный элемент третьей строки матрицы.
Используется функция randomize для инициализации генератора случайных чисел.
Заполняется матрица a случайными числами от 0 до 9 с помощью цикла for.
Выводится матрица a с помощью цикла for.
Находится минимальный элемент матрицы с помощью цикла for. Если текущий элемент меньше текущего минимального, то он становится новым минимальным. Аналогично находится максимальный элемент.
Выводится найденный минимальный элемент.
Находится минимальный элемент третьей строки матрицы с помощью цикла for. Если текущий элемент равен минимальному элементу третьей строки, то он заменяется на 0.
Выводится матрица a с обновленным минимальным элементом третьей строки.
Программа завершается с помощью функции readln.