viết chương trình nhập vào 1 dãy n số . tìm ra số lớn nhất trong dãy vừa nhập

program ct;

uses crt;

var i,n,max:integer;

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

begin

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang a[',i,']:=');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

if max<a[i] then max:=a[i];

writeln(max);

readln

end.

uses crt;
var A:array[1..1000] of integer;
    i,n,max:integer; 
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   max:=A[1];
   for i:=2 to n do if A[i]>max then max:=A[i];
   writeln;
   write('So lon nhat trong day vua nhap la: ',max);
   readln
end.