Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó tìm các số bằng trung bình +

0 bình luận về “Hãy viết chương trình n số nguyên từ bàn phím in ra màn hình các số đó tìm các số bằng trung bình +”

1. Uses crt;

   Var a:array[1..1000]of integer;

   i,n,tbc:integer;

   Begin

   Clrscr;

   Write(‘Nhap so ptu N= ‘); Readln(n);

   For i:=1 to n do 

   Begin

   Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);

   End;

   Tbc:=0;

   Writeln;
   Write(‘ Trung binh cong cua mang do la: ‘);
   For i:=1 to n do tbc:=tbc+a[i];

   Write(tbc/n:3:2);

   Readln;

   End.
   *Nhớ tick và chọn làm c/tr/loi hay nhất giúp mình với nhế! Thanks :33
   * Hỏi gì thì comment bên dưới ạ 😀

   Bình luận

2. uses crt;

   var a:array[1..100]of integer;

   i,n,t:integer;

   begin

   clrscr;

   write(‘Nhap n=’); readln(n);

   for i:=1 to n do 

     begin

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

   end;

   t:=0;

   for i:=1 to n do 

     t:=t+a[i];

   writeln(t/n:4:2);

   readln;

   end.

   Bình luận