Question

Em đang cần gấp. Mọi người giúp em với ạ.

Cho tệp "Data.txt" chứa các số nguyên. Tính trung bình cộng các số lẻ và ghi kết quả vào "Ketqua.txt".

Answer 1

const fi='data.txt';

fo='ketqua.txt';

var f1,f2:text;

a:array[1..100]of integer;

n,i,tb,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

tb:=0;

dem:=0;

for i:=1 to n do

if a[i] mod 2<>0 then

begin

tb:=tb+a[i];

inc(dem);

end;

writeln(f2,tb/dem:4:2);

close(f1);

close(f2);

end.