Viết chương trình nhập dãy số nguyên n từ bàn phím rồi tính trung bình cộng.

0 bình luận về “Viết chương trình nhập dãy số nguyên n từ bàn phím rồi tính trung bình cộng.”

1. Program tinh_tbc;

   Uses crt;

   Var A :  array [1..150] of integer;

                  S,i,n : integer;

                  Tbc : real;

   Begin 

   Write (‘nhap n=’); 

   Readln (n);

   S:=0;

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’=’);

   Readln (A[i]);

   S:= S + A[i];

   end;

   Tbc:= S/n;

   Writeln (‘Trung binh cong cua day la:’, Tbc:8:3);

   Readln 

   End.

       

   Bình luận

2. uses crt;
   var A:array[1..1000] of integer;
       n,i:integer; S:real;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         S:=S+A[i];
      end;
      S:=S/n;
      write(‘Trung binh cong la: ‘,S:4:2);
      readln
   end.

   Bình luận