Cho tệp đatạ. Inp mỗi dòng chứa 1 số nguyên hãy tính trung bình cộng các số

0 bình luận về “Cho tệp đatạ. Inp mỗi dòng chứa 1 số nguyên hãy tính trung bình cộng các số”

1. var f: text;

       a: array[1..1000] of integer;

       s: integer;

       i,cs: byte;

   begin

       assign(f,’data.inp’); reset(f);

       while not eof(f) do

        begin

             readln(f,a[i]);

             s  := s+a[i];

             cs := cs+1;

         end;

       write(‘TBC: ‘,s/cs:6:2);

       readln;

   end.

   Bình luận