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

Ну, как-то так:
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);