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