Viết chương trình khởi tạo ngẫu nhiên một dãy số nguyên gồm có N phần tử (0<N<=100), mỗi phần tử có giá trị tuyệt đối <300. Tìm vị trí của phần tử lớn nhất. Xuất ra dãy số và vị trí của phần tử lớn nhất. Nếu có nhiều phần tử có cùng giá trị lớn nhất thì đưa ra vị trí của phần tử lớn nhất đầu tiên

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.