Cho tệp “TB.INP” gồm nhiều dòng mỗi dòng 1 là 1 số nguyên.hãy tính trung bình các số đó và ghi kết quả vào tệp “TB .Out”

0 bình luận về “Cho tệp “TB.INP” gồm nhiều dòng mỗi dòng 1 là 1 số nguyên.hãy tính trung bình các số đó và ghi kết quả vào tệp “TB .Out””

1. Const Fi=’TB.INP’;
         Fo=’TB.OUT’;
   Var f,g: text;
       A: array[1..1000] of longint;
       n,i,s: longint;
       tbc: extended;
   Begin
           Assign(f,Fi); Reset(f);
           Assign(g,Fo); Rewrite(g);
           n:=0; s:=0;
           While not eof(f) do
           Begin
                   inc(n);
                   Read(f,A[i]);
                   s:=s+A[i];
           End;
           tbc:=s/n;
           Write(g,’Trung binh cong la: ‘,tbc:0:2);
           Close(f);
           Close(g);
   End.

   Bình luận