uses crt; var a: array[1..100] of integer; n,i,max: integer; begin clrscr; write('Nhap so 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]; writeln('Phan tu co gia tri lon nhat la: ',max); readln; end.
