Program Tenchuongtrinh;

Uses crt;

Var A: array[1..1000] of longint;

      i,n,max,vtmax,dem:longint;

Begin

         Clrscr;

         Write('Nhap so phan tu cua day n= '); readln(n);

         For i:=1 to n do

           begin

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

           end;

         For i:=1 to n do

           write(A[i],' ');

         max:=A[1];

         vtmax:=1;

         dem:=0;

         For i:=1 to n do

           if (max<A[i]) then 

             begin

               max:=A[i];

               vtmax:=i;

             end;

         For i:=1 to n do

           if (A[i]=max) then 

             dem:=dem+1;

         Write(max,' ');

         Write(vtmax,' ');

         Write(dem,'* ');

         Readln;

End.

uses crt;
var a:array[1..10000000000000]of int64;
      n,i,d,max:longint;
begin
        clrscr;
        repeat
                write('Nhap so luong phan tu: ');readln(n);
                if (n<=0)and(n>688886) then writeln('NHAP LAI!');
        until (n>0)and(n<=688886);
        for i:=1 to n do
                begin
                        write('Nhap phan tu thu ',i,': ');readln(a[i]);
                end;
        write('Day so vua nhap: ');
        for i:=1 to n do write(a[i],' ');
        max:=a[1];
        for i:=1 to n do if a[i]>max then max:=a[i];
        writeln;
        writeln('So lon nhat: ',max);
        write('Vi tri cua cac so lon nhat: ');
        for i:=1 to n do if a[i]=max then begin write('a[',i,']; ');inc(d) end;
        writeln;
        write('So luong so lon nhat: ',d);
        readln;
end.