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

Ответ

Автор - BobbyFresnel

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.

Предыдущий вопрос Следующий вопрос

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.