Tìm phần tử lớn nhất của đấy số nguyên (n<=250 và A[i]<=500). Nếu dãy có nhiều phần tử có cùng giá trị thì đưa ra phần tử có giá trị lớn nhất đầu tiên

program lonnhat;

uses crt;

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

      n,i,max,vt:integer;

begin

     clrscr;

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

     for i:=1 to n do

          begin

               write('A[',i,']= ');   readln(A[i]);

          end;

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

     for i:=1 to n do

         if A[i]>max then 

             begin

               max:=A[i];

               vt:=i;

             end;

     write('So lon nhat la: A[',vt,']= ',max);

     readln;

end.

uses crt;
var n,i,res:longint;
   a:array[1..250]of longint;
begin
clrscr;
   readln(n);
   res:=low(longint);
   for i:=1 to n do 
      begin
         read(a[i]);
         if a[i]>res then res:=a[i];
      end;
   write(res);
readkey;
end.