Mọi người giúp em giải bài này được không ạ em cảm ơn. Đề bài: Cho tệp 'SN.TXT' chứa 20 số nguyên, mỗi số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng. Viết chương trình tính tổng các số nguyên chẵn trong tệp, đếm xem có bao nhiêu số nguyên lẻ. Ghi kết quả ra tệp 'TONG.TXT' .
const fi='dulieu.txt'; fo='ketqua.txt'; var i,t:integer; f1,f2:text; a:array[1..9]of integer; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); t:=0; for i:=1 to 9 do begin read(f1,a[i]); t:=t+a[i]; end; writeln(f2,t); close(f1); close(f2); end.
var a,b:text; s:integer; begin assign(a,'number.txt'); assign(b,'KQ.txt'); reset(a); rewrite(b); while not eof(a) do begin read(a,s); if s mod 3 =0 then writeln(b,'s=',s,s:3); end; close(a); close(b); readln end.