Viết chương trình nhập vào bàn phím 30 số nguyên.tìm và đưa ra màn hình giá trị và chỉ số lớn nhất .

Program baitap;

Uses crt;

Var A:array[1..200] of integer;

      i,max:integer;

Begin

Clrscr;

For i:=1 to 30 do 

     Begin

     Write('Nhap so thu ',i,':');

     Readln(A[i]);

     End;

max:=A[1];

For i:=2 to 30 do 

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

Writeln('So lon nhat:',max);

Readln

End.

program bai_giai;

uses crt;

var a:array[1..30]of longint;i,max,vt:longint;

begin

clrscr;

for i:=1 to 30 do

begin

write('nhap so thu ',i);readln(a[i]);

end;

max:=a[1];

for i:=2 to 30 do if(a[i]>max)then 

begin

max:=a[i];

vt:=i;

end;

write('so lon nhat o trong day la:',max,' chi so:',vt);

readln;

end.