Найти максимальное и минимальное значения в двумерном массиве - Free Pascal

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

Нужно добавить в программу max и min значение матрицы а.

                    Листинг программы
                
 
                        
                          
                    
Program lab8;
Var
b: array[1..3,1..4] of integer;
a: array[1..3,1..4] of real;
i,j,bmin,bmax:integer;
Begin
randomize;
Writeln('Ishodnaya matrica B');
for i:=1 to 3 do begin
for j:=1 to 4 do begin
b[i,j]:=random(10);
write(b[i,j]:2);
end;
writeln;
end;
readln;
bmax:=b[1,1];
bmin:=b[1,1];
for i:=1 to 3 do begin
for j:=1 to 4 do begin
if b[i,j]> bmax then bmax:=b[i,j];
if b[i,j]< bmin then bmin:=b[i,j];
end;
end;
writeln('bmax=',bmax,'':3,'bmin=',bmin);
readln;
for i:=1 to 3 do begin
for j:=1 to 4 do begin
a[i,j]:=(2*b[i,j]+bmin)/bmax;
write(a[i,j]:5:2);
end;
writeln;
end;
readln;
end.

Решение задачи: «Найти максимальное и минимальное значения в двумерном массиве»

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

uses crt;
Var b: array[1..3,1..4] of integer;
    a: array[1..3,1..4] of real;
    i,j,bmin,bmax:integer;
    amin,amax:real;
Begin
clrscr;
randomize;
Writeln('Ishodnaya matrica B');
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
   begin
    b[i,j]:=random(10);
    write(b[i,j]:2);
   end;
  writeln;
 end;
bmax:=b[1,1];
bmin:=b[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
 begin
  if b[i,j]> bmax then bmax:=b[i,j];
  if b[i,j]< bmin then bmin:=b[i,j];
 end;
writeln('bmax=',bmax,' ':3,'bmin=',bmin);
writeln('Matrica A');
for i:=1 to 3 do
 begin
  for j:=1 to 4 do
   begin
    a[i,j]:=(2*b[i,j]+bmin)/bmax;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
amax:=a[1,1];
amin:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do
 begin
  if a[i,j]> amax then amax:=a[i,j];
  if a[i,j]< amin then amin:=a[i,j];
 end;
writeln('amax=',amax:0:2,' ':3,'amin=',amin:0:2);
readln
end.

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

Объявлены двумерные массивы b и a, а также переменные i, j, bmin, bmax, amin, amax типа integer и переменная amax типа real.
Заполнение массива b случайными значениями от 1 до 10.
Вывод матрицы b на экран.
Инициализация bmax и bmin значением первого элемента первой строки матрицы b.
Перебор всех элементов матрицы b и обновление bmax и bmin при необходимости.
Вывод на экран максимального и минимального значения матрицы b.
Заполнение матрицы a значениями, полученными путем усреднения соответствующих значений матрицы b с учетом минимального и максимального значений.
Вывод матрицы a на экран.
Перебор всех элементов матрицы a и обновление amax и amin при необходимости.
Вывод на экран максимального и минимального значения матрицы a.