Viết chương trình tính trung bình cộng n số thực x1, x2, x3,… với các số được nhập từ bàn phím Giúp mk vs á. Mk đg cần gấp ạ

0 bình luận về “Viết chương trình tính trung bình cộng n số thực x1, x2, x3,… với các số được nhập từ bàn phím Giúp mk vs á. Mk đg cần gấp ạ”

1. program mang;

   uses crt;

   var X:array [1..500] of real;

         n,i: integer;

         T: real;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            for i:=1 to n do

            begin 

                     write(‘X[‘,i,’]=’); readln(X[i]);

                     T:=T+X[i];

            end;

            write(‘Trung binh cong cac so thuc = ‘,T/n:2:2);

            readln

   End.

   Bình luận

2. program trungbinhcong;

   uses crt;
   var n,i:integer;
         KQ,x: real;
   begin
   clrscr;
   write(‘ N = ‘); readln(n);
   i:=0; KQ:=0;
   while i < n do
   begin
   i:=i+1;
   write(‘Nhap x ‘,i,’ = ‘); readln(x);
   KQ:=KQ+x;
   end;
   writeLN(‘Trung binh ‘,n,’ so thuc la: ‘,KQ/n:0:2);
   readln;
   end.

   Bình luận