Uses crt; Var a:array[1..100] of integer; i,n,max : integer; Begin Clrscr ; Write('Nhap so pt n vao: '); 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]; Writeln('So lon nhat trong day so do la:',max); Readln End. *Nhớ tick và chọn làm ctr/l hay nhất giúp mình với nhé! Thanks :D
