В ПАСКАЛЕ!!!!!!!!!!!!!!!!!!!!!!!
Дано целое число N и массив из N вещественных чисел. Найти сумму и произведение чисел, расположенных на нечетных местах в данном массиве.

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

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var a:=ArrRandomReal(ReadInteger(‘n=’),1,50);

  a.Println;

  Writeln(‘Сумма нечетных элементов : ‘,

      a.Where((x,i)->i.IsEven).Sum);

  Writeln(‘Произведение нечетных элементов: ‘,

      a.Where((x,i)->i.IsEven).Aggregate(1.0,(p,q)->p*q))

end.

Пример

n= 8

15.4810654863161 23.0172746381803 33.7221310123439 43.045114823638 9.12741185358139 5.36693139344777 24.408098445464 16.3833775466231

Сумма нечетных элементов : 82.7387067977054

Произведение нечетных элементов: 116304.750204143