Cho tệp văn bản BT.txt gồm nhiều dòng, mỗi dòng chứa số nguyên.Viết chương trình đọc dữ liệu từ tệp BT.txt .Hãy tính trung bình và ghi vào tệp KQ.txt

0 bình luận về “Cho tệp văn bản BT.txt gồm nhiều dòng, mỗi dòng chứa số nguyên.Viết chương trình đọc dữ liệu từ tệp BT.txt .Hãy tính trung bình và ghi vào tệp KQ.txt”

1. uses crt;
   var f,g:text;
       a: array[1..1000] of integer;
       n,i:integer;
       s:integer;
   begin
   clrscr;
   assign(f,’BT.txt’);
   reset(f);
   assign(g,’KQ.txt’);
   rewrite(g);
   s:=0;
   write(‘Nhap so cac so can doc: ‘); readln(n);
   for i:=1 to n do
    begin
    readln(f,a[i]);
    s:=s+a[i];
    end;
   write(g,’Trung binh: ‘,s/n:6:2);
   close(f);
   close(g);
   readln;
   end.

   Bình luận