Дан массив целого типа заполненный случайными числами целого типа.
Посчитать количество максимальных чисел в массиве.
Напишите пожалуйста программу на уровне 9 класса, желательно с блок схемой
Заранее огромное спасибо))

что за "max"? типа "imax"?

max - переменная

мы её не проходили ещё, можно ли её заменить?

max это var max: integer;

Ну, как-то так:max:=a[1,1]; for j:=1 to n do   for i:=1 to n do      if a[i,j]>max then         max:=a[i,j];       k:=0; for i:=1 to n do   for j:=1 to n do      if a[i,j]=max then         inc(k);       Writeln('Max ',max);       Writeln('Sum ',k);