Pascal введите с клавиатуры массив m из n элементов целого типа, нумерация элементов начинается с 1 и найти произведение четных элементов. входные данные n=5 1 2 3 4 5 выходные данные 8

Question

Информатика

Ульянка

11 декабря, 13:48

Pascal введите с клавиатуры массив m из n элементов целого типа, нумерация элементов начинается с 1 и найти произведение четных элементов. входные данные n=5 1 2 3 4 5 выходные данные 8

+5

Ответы (1)

Знаете ответ на вопрос?

Анемподист · Answer 1

Begin

var b: integer;

writeln ('Введите n') ;

readln (b) ;

writeln ('Имеем последовательность') ;

var a : = Range (1, b) ;

a. Println () ;

writeln ('Произведение четных равно') ;

Writeln (a. Where (x - > x mod 2 = 0). Aggregate (1, (p, x) - > p * x)) ;

end.