cho tệp songuyen.dat các số nguyên dương,mỗi số cách nhau một dấu theo hàng ngag.viết chương trình các số nguyên từ tệp và tính tổng của chúng
2 câu trả lời
uses crt;
var f:text;
a:array[1..1000]of longint;
i,sum:word;
begin
clrscr;
assign(f,'songuyen.dat');reset(f);
i:=1;
while not(eof(f))do
begin
read(f,a[i]);
inc(sum,a[i]);
end;
close(f);
write(sum);
readln;
end.
program bai_giai;
uses crt;
var f:text;
n,t:longint;
begin
clrscr;
Assign(f,'songuyen.dat'); reset(f);
t:=0;
while not eoln(f) do
begin
read(f,n);
t:=t+n;
end;
write(t);
readln; close(f);
end.
