Дан двумерный массив. Найти максимальный элемент и проверить, ...

Motes

uses crt; var a:array[1..100, 1..100] of integer;

i,j,m,n,max,kol:integer;

begin writeln('Введите размер массива'); readln(m,n);

for i:=1 to m do begin      

for j:=1 to n do    

 begin          

writeln('Введите элементы массива ' ,i,'x',j);          

readln(a[i,j]);      

end; end;

for i:=1 to m do begin      

for j:=1 to n do      

begin        

  if a[i,j]>max then        

  max:=a[i,j];    

 end;

end; for i:=1 to m do begin    

 for j:=1 to n do      begin          

if a[i,j]=max then        

  inc(kol);    

 end; end;

writeln('max=',max,', встречается ',kol,' raz.');

end.