// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; Writeln('Произведение нечетных равно ', a.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y)) end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Произведение нечетных равно ',
a.Where(x->x.IsOdd).Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
n= 40
-88 11 83 20 82 -8 18 52 51 96 -58 8 76 -70 -8 -33 -97 -11 17 42 -2 43 94 -81 19 -25 -99 86 -6 -55 14 35 -51 28 51 44 11 2 -46 -9
Произведение нечетных равно -2262855352516738717811968125