Cho dãy số nguyên a1, a2, ..., an ( 4<=n <=100). Hãy tìm giá trị lớn nhất của dãy và đếm xem trong dãy có bao nhiêu phần tử có giá trị bằng giá trị lớn nhất, đưa các kết quả ra màn hình

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.

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.