program baitap; uses crt; var n,i,max : integer; a : array[1..100] of integer; begin clrscr; write('Nhap so n :'); readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,' la : '); 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 mang la :', max); readln end.
