Question

U program pascal care pentru o matrice determina de cite ori se intilneste elementul maxim

Answer 1

pascal matrice;
type tab=array[1..100,1..100] of integer;
var A:tab; i,j,n,m,max,k:integer;
begin
write('dati n,m:'); readln(n,m);
for i:=1 to n do
for j:=1 to m do readln(A[i,j]);
max:=A[1,1]; k:=0;
for i:=1 to n do
for j:=1 to m do begin
if A[i,j] = max then k:=k+1;
if A[i,j] > max then begin
max:=A[i,j]; k:=0;
end;
end;
writeln('se repeta de ',k,' ori');
end.