Lời giải :
program hotrotinhoc ;
var a,n,i,SLN : integer ;
A: array[1..100] of integer ;
Begin
write('Nhap gia tri cua n='); readln(n);
writeln('nhap cac phan tu cua day so');
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end ;
SLN:=a[1];
for i:=2 to n do
if SLN< a[i] then SLN:=a[i];
write('So lon nhap trong day so la',SLN);
readln
end.