Готовое решение для Pascal ABC.
Program n1;
Uses Crt;
var a: array[1..20,1..20] of integer;
m,n,i,j,max,min: integer;
begin
write('Введите размеры матрицы: ');
readln(m,n);
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(40)-20;
write(a[i,j]:6);
end;
writeln;
end;
max:=a[1,1];
min:=a[1,1];
for i:=1 to m do
for j:=1 to n do begin
if a[i,j]>max then max:=a[i,j];
if a[i,j] end; writeln('max = ',max);
writeln('min = ',min);
writeln('Среднее значение max и min = ',(max+min)/2);
end.