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’
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’
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.
Chúc bạn học tốt ^^