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. Uses crt;
    Var n,i:integer;
          da,x: longint;
   Begin
    Clrscr;
   Writeln(‘Nhap N vao day: ‘); Readln(n);
    i:= 0; da:= 0;
   While i < n do
    Begin
     i:= i + 1;
   Writeln(‘Nhap X ‘,i,’: ‘); Readln(x);
     da:= da + x;
   End;
   Writeln(‘Trung binh cong cua  ‘,n,’ so nguyen la: ‘,da / n:0:2);
   Readln
   End.
   *Nhớ tick và cho câu trả lời của mình là hay nhất giúp nhá! Thanks so much :33
   p/s: Hỏi và đáp, comment để giải đáp!

   Bình luận

2. 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