File 'dulieu.dat' gồm 2dòng, mỗi dòng chứa hai số nguyên .Ghi lên file 'tb.dat' giá trị trung bình cộng của các số trên file 'dulieu.dat'
2 câu trả lời
var f1, f2: text;
a, b: longint;
Begin
Assign(f1, 'dulieu.dat'); reset(f1);
Assign(f2, 'tb.dat'); rewrite(f2);
Readln(f1, a); read(f1, b);
Write(f2, (a+b)/2); close(f2);
End.
