73)
uses crt;
var n,a,max,d,i:longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n Do
begin
write('Nhap phan tu thu ',i,': ');readln(a);
if a>max then begin d:=0; max:=a; end;
if a=max then inc(d);
end;
writeln('Phan tu lon nhat: ',max);
writeln('So luong phan tu co gia tri lon nhat: ',d);
readln
end.
74)
uses crt;
var n,a,max,d,i,b:longint;
begin
clrscr;
write('N=');readln(n);
for i:=1 to n Do
begin
write('Nhap phan tu thu ',i,': ');readln(a);
if a<=b then begin if d>max then max:=d; d:=1; end;
if a>b then inc(d);
b:=a;
end;
writeln('So luong duong chay cua day: ',max);
readln
end.
75. Giống 74