Question

Плиз хелп Составьте программу вычисления в массиве A(15) произведения нечетных элементов. Сделайте пожалуйста программу на паскале

Answer 1

Ответ:

--- PascalABC.NET 3.6.3 ---

begin

 var A := ArrRandom(15, -99, 99);

 A.Println;

 A.Where(p -> p mod 2 <> 0).Product(x -> BigInteger(x)).Println;

end.

Answer 2

PascalABC.NET

Ответ:

• begin
• ArrRandom(15, -99, 99).Println.Product(x -> x.IsOdd?BigInteger(x):1).Print
• end.

Пример работы: