uses crt;
var i,d,max,n:longint; a:array[1..100]of longint;
begin 
clrscr;
   write('Nhap n: (4<=n<=100) ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap a[',i,']=');readln(a[i]);
         if (i=1)or(a[i]>max) then 
            begin
               max:=a[i];
               d:=0; 
            end;
         if max=a[i] then d:=d+1;
      end;
   writeln('Gia tri lon nhat: ',max); 
   writeln('Co ',d,' phan tu bang gia tri lon nhat');
readln
end.

program bai_giai;

uses crt;

var a:array[4..100]of longint; n,i,max,dem:longint;

begin

clrscr;

write('nhap n:');readln(n);

max:=a[1];

for i:=1 to n do 

begin

write('a[',i,']=');readln(a[i]);

if(max<a[i])then max:=a[i];

end;

dem:=0;

for i:=1 to n do if(a[i]=max)then inc(dem);

writeln('so lon nhat trong day so tren la:',max);

write('so chu so bang so lon nhat la:',dem);

readln

end.