Матрица размером от n до m (-100; 100), найти среднее арифметическое самого большого и самого маленького элемента (Паскаль)

Const n=4; m=5;

begin

var a:=MatrRandom (n, m,-100,100). Println;

var max:=a[0,0];

var min:=a[0,0];

for var i:=0 to n-1 do

for var j:=0 to m-1 do

begin

if a[i, j]>max then max:=a[i, j];

if a[i, j]
end;

writeln ('max = ', max,' min = ', min);

writeln ('Среднее арифметическое = ', (max+min) / 2);

end.

Пример:

-88 55 - 89 - 68 - 47

-68 - 69 17 50 - 31

38 22 - 34 56 23

17 25 - 68 - 80 - 26

max = 56 min = - 89

Среднее арифметическое = - 16.5