Написать программу (в pascal) и составить блок-схему по : в двумерном массиве произвольной размеренности подсчитать количество элементов, равных наибольшему элементу в этом массиве. вывести значение наибольшего элемента.

Алгоритм ввод  массива  a[n,m] max : =  a[1,1]; k  : =  1; p  : =  1; s  : =  0; алгоритм ввод массива a[n,m] max : = a[1,1]; k : = 1; p : = 1; c : = 0; цикл по i от 1 до n (по строкам) цикл по j от 1 до m (по столбцам) если (a(i, j) = max) and ((i< > k) or (j< > p)) то c : = c+1; если (a(i, j) > max) то k : = i; p : = j; c : = 1; max: = a(i, j); конец если конец цикла по столбцам конец цикла по строкам вывод "элемент ", max, " встречается ", c, " раз" конец. программа var a: array of array of integer var i,j,m,n,k,p,s,max: integer begin uses crt; clrscr; write ('vvedite kol-vo strok: '); readln (n); write ('vvedite kol-vo stolbtsov: '); readln (m); setlength(a,n,m); for i=1 to n do begin for j=1 to m do begin write ('vvedite element vassiva: '); readln (a[i,j]); end; end; max : = a[1,1]; k : = 1; p : = 1; c : = 0; for i=1 to n do begin for j=1 to m do begin if (a(i, j) = max) and ((i< > k) or (j< > p)) then c : = c+1; if (a(i, j) > max) then begin k : = i; p : = j; c : = 1; max: = a(i, j); end; end; end; write ('element ', max, ' vstrechaetsya ', c, ' raz'); end.

В прикрепленном файле