viết chương trình tính trung bình cộng của n số nguyên x1,x2,x3,x4-xn với x1,x2,x3,x4…xn được nhập từ bàn phím

0 bình luận về “viết chương trình tính trung bình cộng của n số nguyên x1,x2,x3,x4-xn với x1,x2,x3,x4…xn được nhập từ bàn phím”

1. program Trung_binh;

   uses crt;

   var n,i,x,TB: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

                     write(‘Nhap so thu ‘,i,’: ‘); readln(x);

                     TB:=TB+x;

            end;

            write(‘Trung binh cong ‘,n,’ so nguyen = ‘,TB/n:2:1);

            readln

   End.

   Bình luận

2. clrscr;

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

   var i,s,n,kq:integer;

   begin

   S:=0

   readln(n);

   begin

   for i:=1 to n do 
   readln(a[i]);

   s:=s+a[i];

   end;

   readln(s div n);

   readln;

   end.

   Bình luận