: Cho tệp văn bản MANG.TXT gồm nhiều dòng, mỗi dòng lưu trữ một số nguyên. Hãy viết chương trình đọc dữ liệu từ tệp và tính tổng các số nguyên có trong tệp MANG.TXT và hiển thị kết quả ra màng hình
: Cho tệp văn bản MANG.TXT gồm nhiều dòng, mỗi dòng lưu trữ một số nguyên. Hãy viết chương trình đọc dữ liệu từ tệp và tính tổng các số nguyên có trong tệp MANG.TXT và hiển thị kết quả ra màng hình
var f: text;
a: integer;
S: longint;
Begin
Assign(f, ‘mang.txt’); reset(f);
S:=0;
While not eof(f) do
Begin
Readln(f, a);
S:=s+a;
End;
Write(‘tong: ‘, s);
Readln
End.