Cho dãy A có N phần tử nguyên ( N<=250). Tìm phần tử có giá trị max đưa kết quả đó ra ngoài màn hình cùng với chỉ số ( vị trí) của phần tử đó.

Program bt;

Uses crt;

Var

       n,i,max,vt:integer;

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

Begin

          Clrscr;

        repeat

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

        Until n<=250;

        For i:=1 to n do readln(A[i]);

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

        for i:=2 to n do if A[i]>max then

        begin

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

         End;

         writeln('Phan tu co gia tri lon nhat: ',max,', vi tri: ',vt);

        readln;

End.

#Ngoc