[email protected] , ответ добавлен 19.05.2017 в 17:41

begin 
var a := ArrRandom(30, 10, 99); 
a.println; 
writeln(a.Where(x -> (x mod 17 = 0)).DefaultIfEmpty.Aggregate(1, (i, j)-> i * j));
end.

 0