Вычислите произведение элементов массива значения которых больше 5, но меньше 10 на паскале

roma2233p08v96 roma2233p08v96    2   17.09.2019 05:50    2

Ответы
leylaevloeva leylaevloeva  07.10.2020 21:11
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(15,0,15);a.Println;
var answer:= a.Where(t -> (t > 5) and (t < 10)).Aggregate(biginteger(1), (x,y) -> x*y);
Writeln(answer);

Пример:
4 0 15 8 10 13 9 13 4 8 11 5 7 1 4
4032
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика