program ct;

uses crt;

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

      i,n,vt,max:integer;

begin clrscr;

   writeln('Nhap so phan tu n: '); readln(n);

   for i:=1 to n do

     begin

        writeln('A[',i,']'); readln(A[i]);

     end;

     max:=A[1];

   for i:=1 to n do

     if A[i]>max then

       begin

          max:=A[i]; vt:=i;

       end;

   writeln(Vi tri A[',i,'] la vi tri so lon nhat: ',st);

readln;

end.

Học tốt!

program bai1;

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

begin

wrtie('N= ');readln(n);

for i:=1 to n do

begin

Ừ rite('A[',i,']= ');

readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

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

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

write('Vi tri la ');

for i:=1 to n do

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

readln

end.