program max_vitri;

uses crt;

var A:array[1..10000] of integer;

      n,i,max:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write('phan tu thu ',i,' la: ');

  readln(A[i]);

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i]:4);

max:=A[1];

for i:=2 to n do

 if A[i]>max then max:=A[i];

writeln;

writeln('So lon nhat la: ',max);

write('i tri cua no la: ');

for i:=1 to n do

 if A[i]=max then write(i,' ');

readln

end.

uses crt;
var i,n,max:integer;
    a:array[0..100] of integer;
    vitri:byte;
BEGIN
        clrscr;
        write('Nhap N:'); readln(n);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;
        max:=a[1];   vitri:=1;
        for i:=2 to n do
                if a[i]>max then
                begin
                        max:=a[i];
                        vitri:=i;
                end;
        write('So lon nhat trong day la ',max,' ,co vi tri ',vitri,'.');
        readln
END.