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

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

Answer 2

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

begin
var a:= ArrGen(10, t -> ReadReal);
var ans:= a.where((v,i) -> (i + 1).IsEven).sum;
Writeln('Сумма элементов с четными номерами: ', ans);
end.