Write('Nhap so ptu N= '); Readln(n); For i:=1 to n do Begin Write('Nhap so a[',i,']= '); Readln(a[i]); End; Write('Cac so lon hon 0 trong day tren do la: '); For i:=1 to n do If a[i]>0 then Begin Write; Write(a[i]:5:2,' '); End; Readln END. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Thanks :D
