program hhh; Uses Crt; Var n,i,max: integer; a: array [1..100] of integer; begin clrscr; write('Nhap do dai cua day so: '); readln(n); for i:=1 to n do begin write('Nhap so thu ',i,': '); readln(a[i]); end; max:=a[1]; for i:=2 to n do if max<a[i] then max:=a[i]; writeln('Gia tri lon nhat cua day so la: ',max); readln end.
