Question

Помогите, пожалуйста

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Введите 10 чисел:',10); a.Println;
  var s:=a.Where((v,i)->i.IsEven).Sum;
  var k:=a.Where(v->v.IsEven).Count;
  var p:=a.Where(v->v>0).Aggregate(BigInteger(1),(p,q)->p*q);
  Writeln('Сумма элементов на нечетных местах: ',s);
  Writeln('Количество элементов, кратных 2: ',k);
  Writeln('Произведение положительных элементов: ',p)
end.

Пример
Введите 10 чисел: -122 63242 123243 673452 0 -223424353 2342653 987342 -1242311 -755212
-122 63242 123243 673452 0 -223424353 2342653 987342 -1242311 -755212
Сумма элементов на нечетных местах: 1223463
Количество элементов, кратных 2: 6
Произведение положительных элементов: 12140877591331771530643145712