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.
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.
