Question

Срочно. Составить программы по условиям:
1. В массиве A[10] посчитать количество чётных элементов.
2. В массиве A[10] найти произведение ненулевых элементов.

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, -99, 99);

 a.Println;

 Println('Четных:', a.Count(p -> p.IsEven));

 Println ('Произведение ненулевых равно',

     a.Where(p -> p <> 0)

     .Aggregate(BigInteger.One, (u, v) -> u * v))

end.