uses crt; var i,n,max : integer; a : array[1..100] of integer; begin clrscr; write('Nhap n:'); readln(n); for i:=1 to n do begin write('Nhap a[',i,']='); readln(a[i]); end; max:=a[1]; for i:=2 to n do if a[i] > max then max:=a[i]; write('Gia tri lon nhat :', max); readln end.
