Cho tệp văn bản ‘ANH.TNP’ 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 ‘ANH.INP’ .Hãy đếm (tổng/trung bình) các số ch

0 bình luận về “Cho tệp văn bản ‘ANH.TNP’ 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 ‘ANH.INP’ .Hãy đếm (tổng/trung bình) các số ch”

1. var f1, f2: text;

         a, n: integer;

         S: longint;

         Tb: real;

   Begin

      Assign(f1, ‘anh.tnp’); reset(f1);

      Assign(f2, ‘kq.out’); rewrite(f2);

      N:=0; S:=0;

      While not eof(f1) do

         Begin

            Readln(f, a);

            If (a mod 2 = 0) then

               Begin

                  S:=s + a;

                  Inc(n);

               End;

         End;

      Tb:=s/n;

      Writeln(f2, ‘tong cac so chan: ‘, s);

      Write(f2, ‘trung binh: ‘, tb);

      Close(f1); close(f2);

   End.

   Bình luận