program solonnhat;

uses crt;

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

      n,i,max,vt:integer;

begin

clrscr;

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

randomize;

for i:=1 to n do

 A[i]:=random(300);

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

for i:=1 to n do

 begin

  write(A[i],' ');

  if A[i]>max then

   begin

    max:=A[i];

    vt:=i;

   end;

 end;

writeln;

writeln('Phan tu lon nhat la: ',max);

write('Co vi tri dau tien la: ',vt);

readln

end.

uses crt;
var max:integer;
a:Array[1..100] of integer;
    n,i:byte;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        randomize;
        max:=-300;
        for i:=1 to n do
        begin
                a[i]:=random(601)-300;
                if a[i]>max then max:=a[i];
        end;
        write('DAY SO LA:');
        for i:=1 to n do write(a[i],' ');
        writeln;
        write('VI TRI CUA PHAN TU LON NHAT LA:');
        for i:=1 to n do
                if a[i]=max then
                begin
                        write(i);
                        break;
                end;
        readln
END.

Chúc bạn học tốt.

Cho mik ctlhn nhất nha.