Giúp em câu này với ạ. Em cảm ơn Cho tệp IN.TXT chứa: Dòng 1 số lượng phân tử của dãy số nguyên(n<=50) Dòng 2 chứa giá trị của các phân tử trong dãy số. Viết chương trình đọc dữ liệu từ tệp IN.TXT. Đếm số lượng và tính tổng các phân tử là số chẵn trong dãy số đó. Kết quả ghi vào tệp OUT.TXT dưới dạng Dòng 1: số lượng số chẵn dùng Dòng 2: tổng các số chẵn
1 câu trả lời
uses crt;
var i, n, a, s, d : integer;
f1, f2 : text;
begin
clrscr;
assign(f1,'IN.TXT'); reset(f1);
assign(f2,'OUT.TXT'); rewrite(f2);
readln(f1, n); s := 0; d := 0;
for i := 1 to n do begin read(f1, a);
if a mod 2 = 0 then begin s := s + a;
d := d + 1; end; end;
writeln(f2, d);
writeln(f2, s);
close(f1); close(f2);
readln
end.
