Question

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

Answer 1

begin

 var a := ReadArrInteger('Вводи:', 15);

 a.Println;

 Println('Сумма четных:', a.Where(p -> p.IsEven).Sum);

 Println('Произведение меньших 9:', a.Where(p -> p < 10).

   Aggregate(real(1), (p, q) -> p * q))

end.