Uses Crt; Var a:array[1..1000] of integer; i,n,max:integer; Begin Write(' Nhap so ptu 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 Begin If max<a[i] then max:= a[i]; End; Write(' Vay ptu lon nhat trong day do la: ',max); Readln End. * Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Thanks :D
