Question

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

Answer 1

// 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