Информатика 11 класс.Найти разность между максимальным и средним арифметическим элементами квадратной матрицы, заданной случайным образом.Этапы решения задачи: описать переменные; сформировать массив; напечатать его; найти максимальный (минимальный) элемент; найти сумму всех элементов; найти среднее арифметическое, вычислить нужную разность ; напечатать результат.

var 
 a:array[1..100,1..100] of integer;
 n,s,i,j,max:integer;
begin
  write('Введите размер матрицы: ');readln(n);
  max:=-100;
  for i:=1 to n do 
  begin
   for j:=1 to n do
   begin
    a[i,j]:=random(-100,100);
    write(a[i,j]:5);
    s:=s+a[i,j];
    if a[i,j]>max then max:=a[i,j];
   end;
   writeln;
  end;
  writeln('Максимальное: ',max);
  writeln('Сумма: ',s);
  writeln('Сред.арифм.: ',s/sqr(n));
  writeln('Разность: ',max-s/sqr(n));
 readln;
end.


Введите размер матрицы: 5
   93  -60  -11  -17   57
   13  -18  -91  -38    9
  -55   18  -86  -61   53
   24  -46   68  -63   43
   88  -59  -10  -65   36
Максимальное: 93
Сумма: -178
Сред.арифм.: -7.12
Разность: 100.12