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

Question

Информатика

Данилка

7 сентября, 22:41

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

+1

Ответы (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.