nhập dãy A bất kì nguyên dương In ra màn hình Max Test (1,3,7,5,13)

program tim_max;

uses crt;

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

      n,i,max:integer;

begin

      clrscr;

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

      for i:=1 to n do

            begin

                  write(‘A[‘,i,’]= ‘);  readln(A[i]);

            end;

      max:=A[1];

      for i:=2 to n do

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

      write(‘Max la: ‘,max);

      readln;

end.