Question

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

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.

Answer 2

"введите С КЛАВИАТУРЫ массив m из n элементов целого типа"... var m:=ReadArrInteger(n);

Answer 3

И сразу пять строк ушли, заменившись одной.

Answer 4

Кстати, у Вас "a" не массив, а последовательность. Чтобы был массив, надо добавить в конце .ToArray;