Uses Crt; Var a:array[1..1000] of integer; i,n,min:integer; Begin Clrscr; Write('Nhap so ptu n= '); Readln(n); For i:=1 to n do Begin Write('Nhap a[',i,']= '); Readln(a[i]); End; Writeln; Write(' Day so tren co cac ptu la: '); For i:= 1 to n do Begin Write(a[i]:3); End; min:=a[1]; For i:= 2 to n do Begin If min>a[i] then min:=a[i]; End; Writeln; Write('Ptu nho nhat trong day la: ', min); 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 * Hỏi gì thì comment bên dưới nha :D
