Question

найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале( -28,27). Размер производной.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ArrRandom(10,-27,26).Println;
write(a.Where(x->x mod 3=0).Aggregate(Real(1),(x,y)->x*y));
end.