Lập phương trình tính tổng các số nguyên trong tệp . Hiển thị trên màn hình và ghi tổng tính được vào tệp BAI3.OUT Ví dụ BAI3.INT.

0 bình luận về “Lập phương trình tính tổng các số nguyên trong tệp . Hiển thị trên màn hình và ghi tổng tính được vào tệp BAI3.OUT Ví dụ BAI3.INT.”

1. uses crt;

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

   n,i,s: word;

   f:text;

   begin

   clrscr;

   Assign(f,’tep.inp’); Reset(f);

   Readln(f,n);

   for i:=1 to n do readln (f,a[i]);

   CLose(f);

   Assign(f,’tep.out’); Rewrite(f);

   For i:=1 to n do S:=S+a[i];

   writeln (f,’tong la: ‘,s);

   CLose(F);

   End.

   Bình luận

2. uses crt;

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

   n,i,s: word;

   begin

   clrscr;

   write (‘nhap so phan tu: ‘);  readln (n);

   for i:=1 to n do

   begin

   write (‘nhap so thu ‘,i,’: ‘);  readln (a[i]);

   s:=s+a[i];

   end;

   writeln (‘tong la: ‘,s);

   readln;

   end.

   Bình luận