Question

составить программу, в которой описывается массив переменных, состоящих из 15 целых чисел, инициализируется вводом с клавиатуры ,выводятся элементы массива на экране через пробел .Для полученного массива найти сумму всех нечетных элементов и произведение элементов , меньших 8.

Answer 1

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

begin

 var a := ReadArrInteger('Введи 15 чисел:', 15);

 a.Println;

 a.Where(p -> p.IsOdd).Sum.Println;

 a.Where(p -> p < 8).Aggregate(BigInteger.One, (p, q) -> p * q).Println

end.