Составить программу, в которой описывается массив переменных, состоящий из 15 целых чисел, инициализируется массив вводом с клавиатуры, выводятся элементы массива экран через пробел. Для полученного массива найти сумму всех четных элементов и произведение элементов, меньших 10.
More Questions From This User See All
Answers & Comments
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.