Viết chương trình đọc dữ liệu từ tệp Lớp.TXT (Tệp Lop.TXT được tạo gồm các số nguyên) Tính tổng các số trong tệp Lop.TXT và ghi kết quả ra màn hình

0 bình luận về “Viết chương trình đọc dữ liệu từ tệp Lớp.TXT (Tệp Lop.TXT được tạo gồm các số nguyên) Tính tổng các số trong tệp Lop.TXT và ghi kết quả ra màn hình”

1. uses crt;
   var i,n,s:integer;
       a:array[1..1000] of integer;
   const Fi=’Lop.INP’;
         Fo=’Lop.OUT’;

   begin
    assign(input,Fi); reset(input);
    assign(output,Fo); rewrite(output);
    readln(n);
    s:=0;
    For i:=1 to n do
     begin
      read(a[i]);
      s:=s+a[i];
     end;
    writeln(s);
    readln;
   end.

   Bình luận

2. program ct;
   uses crt;
   var  n,i,s :  integer;
   a : array[1..100] of integer;
   begin clrscr;
   assign(input,’Lop.TXT’);
   assign(output,’Lop.OUT’);
   reset(input); rewrite(output);
   readln(n);
   s:=0;
   for i:=1 to n do read(a[i]);
   for i:=1 to n do s:=s+a[i];
   writeln(s);
   close(input); close(output);
   readln
   end.

   Bình luận