Viết chương trình tính toán trung bình cộng của N số thực

0 bình luận về “Viết chương trình tính toán trung bình cộng của N số thực”

1. .

   Bình luận

2. program tinh_toan;

   uses crt;

   var i,n:integer;

         tb:real;

         a: array [1..10000] of real;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   tb:=0;

   writeln(‘Nhap ‘,n,’ so thuc:’); i:= 1;

   while i<= n do

   begin 

   write(‘so thu ‘,i,’: ‘);readln(a[i]);

   tb:=tb+a[i];

   i:=i+1;

   end;

   tb:=tb/n;

   writeln(‘TBC cua ‘,n,’ so thuc la : ‘,tb:0:4);

   delay(9000);

   readln;

   end.

   Bình luận