Найти произведение элементов,кратных 4 в массиве в (15)

Найти произведение элементов,кратных 4 в массиве в (15)
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию! begin   var a:=ArrRandom(15,1,99); a.Println;   Writeln('Р4=',a.Where(x->x mod 4=0).Aggregate(1,(x,y)->x*y)) end. Пример 36 55 99 11 96 46 91 53 64 85 19 55 7 15 34 Р4=221184
Не нашли ответ?
Ответить на вопрос
Похожие вопросы