Question

Cho dãy số. Tính Trung bình cộng của các số vừa chia hết cho 3 vừa chia hết cho 5

Answer 1

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

Answer 2

Program hotrotinhoc;

var tb: longint;

tbc: real;

i,n,d: integer;

a: array[1..32000] of integer;

begin

readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

inc(d);

tb:=tb+a[i];

end;

tbc:=tb/d;

write(tbc:2:2);

readln

end.