Cho tệp ‘SN.TXT’ chứa 20 số nguyên, mỗi số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng. Viết chương trình tính tổng các số nguyên c

0 bình luận về “Cho tệp ‘SN.TXT’ chứa 20 số nguyên, mỗi số cách nhau bởi dấu cách và không kết thúc bằng kí tự xuống dòng. Viết chương trình tính tổng các số nguyên c”

1. 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.

   hok tốt !!!

   Bình luận