Question

: Giả sử trên đĩa có tệp BAI4.INP (tệp này có N số nguyên, mỗi số cách nhau một dấu cách)

Viết chương trinh tính tổng của N số đó và ghi kết quả vào tệp KQ2.OUT.
mọi người giúp giùm mình bài này với ạ!

Answer 1

const fi='bai4.inp';

fo='kq2.out';

var f1,f2:text;

a:array[1..100]of integer;

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

t:=0;

for i:=1 to n do

t:=t+a[i];

write(f2,t);

close(f1);

close(f2);

end.