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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.