Question

Дан массив из 10 вещественных чисел. Посчитать сумму элементов массива с черными номерами

Answer 1

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

begin
  var a:=ReadArrReal('Введите 10 чисел:',10);
  Writeln('Искомая сумма равна ',a.Where((x,i)->i.IsOdd).Sum)
end.

Пример
Введите 10 чисел: 3.6 -1.45 2.11 6 3.9 -12.65 4.1 -5 0 11.3
Искомая сумма равна -1.8