Cho dữ liệu trong tệp ‘Dulieu. Txt’ gồm 1 số nguyên cách nhau bởi dấu cách trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp đó rồi tính tổng các bạn số nguyên đó rồi ghi vào tiệp. ‘ketqua. Txt’.
Cho dữ liệu trong tệp ‘Dulieu. Txt’ gồm 1 số nguyên cách nhau bởi dấu cách trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp đó rồi tính tổng các bạn số nguyên đó rồi ghi vào tiệp. ‘ketqua. Txt’.
const fi=’dulieu.txt’;
fo=’ketqua.txt’;
var i,t:integer;
f1,f2:text;
a:array[1..9]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
t:=0;
for i:=1 to 9 do
begin
read(f1,a[i]);
t:=t+a[i];
end;
writeln(f2,t);
close(f1);
close(f2);
end.