Cho tệp văn bản 'ANH.TNP' gồm nhiều dòng, mỗi dòng chứa số nguyên. Viết chương trình đọc dữ liệu từ tệp 'ANH.INP' .Hãy đếm (tổng/trung bình) các số chẵn (lẻ) và ghi kết quả vào tệp 'KQ.OUT' Mình cần gấp ạ.
1 câu trả lời
var f1, f2: text;
a, n: integer;
S: longint;
Tb: real;
Begin
Assign(f1, 'anh.tnp'); reset(f1);
Assign(f2, 'kq.out'); rewrite(f2);
N:=0; S:=0;
While not eof(f1) do
Begin
Readln(f, a);
If (a mod 2 = 0) then
Begin
S:=s + a;
Inc(n);
End;
End;
Tb:=s/n;
Writeln(f2, 'tong cac so chan: ', s);
Write(f2, 'trung binh: ', tb);
Close(f1); close(f2);
End.
