đề đã có nêu là n=20 rồi mà

uses crt;

var i,n,max:integer;

      A:array[1..100] of 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 max<A[i] then max:=a[i];

write('so lon nhat trong day: ',max);

readln;

end.