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

Вопрос школьника по предмету Информатика

Матрица размером от 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]<min then min:=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