Viết chương trình nhập vào 1 mảng số nguyên gồm n phần tử. Tính trung bình cộng các phần tử trong mảng?

0 bình luận về “Viết chương trình nhập vào 1 mảng số nguyên gồm n phần tử. Tính trung bình cộng các phần tử trong mảng?”

1. :program trung_binh_cong;

   uses crt; 

   var n , i :interger;

         TBC : real;

         A:array[1….100]of integer;

   begin

         writeln(‘hay nhap do dai cua day so , n :’);readln(n);
         writeln (‘nhap cac phan tu cua day so:’); 

         For i:=1To n do 

        begin

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

        end;
        tbc:=0;

        for i:=1 to n do begin
         tbc := a[i]:=(a[i]+i)/n ;

         end; 

         wrriteln (‘trung binh cong la ‘, tbc );
         readln
   end.

   Bình luận

2. Program Hotboy;

   Uses crt;

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

   D1,n: integer;

   S:real;

   Begin

   Clrscr;

   s:=0;

   Write(‘nhap so n’);

   For i:=1 to n do

   Write(‘A[‘,i,’]’);

   Readln(A[i]);

   For i:=1 to n do

    inc(D1);

   S:=S+A[i];

   Write(‘Trung binh cac so  la’,S/D1);

   Readln

   End.

   Bình luận