// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-99,99); a.Println;
Writeln('Ср.арифм=',a.Average);
Writeln('Искомое произведение=',
a.Where(t->t mod 3=0).Aggregate(BigInteger(1),(p,q)->p*q))
end.
Пример
-77 -70 -54 -46 74 -39 -81 -40 7 88 -28 -7 -45 -8 -90 -6 87 -34 39 -35
Ср.арифм=-18.25
Искомое произведение=14064798641400