Writeln('Nhap pt N vao: '); Readln(n); For i:=1 to n do Begin Repeat Writeln('Nhap phan tu thu ',i,': '); Readln(A[i]); Until (n mod 2 = 0); End; For i:=1 to n do if A[i] mod 2=0 then write(A[i]:3); Readln; End. *Nhớ tick và chọn làm c/tr/loi hay nhất giúp mình nhé!Thank trước: D *P/s: Cảm thấy khó hiểu, thắc mắc -> Comment để giải đáp!
