Cho dãy gồm N số nguyên a1, a2, a3, …, an. Hãy tính trung bình cộng của các số hạng chia hết cho 3.

0 bình luận về “Cho dãy gồm N số nguyên a1, a2, a3, …, an. Hãy tính trung bình cộng của các số hạng chia hết cho 3.”

1. Uses crt;

   Var A:Array[1..100000] of longint;

         i, n, ch, tbc: longint;

   Begin

        Clrscr;

        Write(‘Nhap n = ‘); readln(n);

        For i:=1 to n do 

              Begin

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

                    Readln(A[i]);

              End;

        ch:=0;

        tbc:=0;

        For i:=1 to n do if a[i] mod 3 = 0 then 

               Begin

                     inc(ch);

                     tbc:=tbc+a[i];

               End;

         Writeln(‘Trung binh cong la: ‘,tbc/ch:4:2);

   Readln

   End.

   Bình luận

2. var a:array[1..100] of longint;

   i,n,t,d:longint;

   begin

   readln(n);t:=0;d:=0;

   for i:=1 to n do readln(a[i]);

   for i:=1 to n do 

   if a[i] mod 3=0 then begin inc(d);t:=t+a[i];end;

   write(t/d);

   readln

   end.

   Bình luận