Question

Cho tệp DATA.INP mỗi dòng chứa 1 số nguyên . Hãy lập trình chứa trung bình cộng các số kết quả ghi vào tệp RESULT.TXT

Answer 1

const fi='data.inp';
fo='result.txt';
var f1,f2:text;
a:array[0..100]of integer;
dem,i,t:integer;
tbc:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
{---------------------------------xu-ly--------------------------------}
t:=0;
for i:=1 to dem do
t:=t+a[i];
tbc:=t/dem;
writeln(f2,tbc:4:2);
close(f1);
close(f2);
end.