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

Ну, как-то так:
max:=a[1,1];
for j:=1 to n do
  for i:=1 to n do
    if a[i,j]gt;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);