// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Сумма элементов на нечетных местах ',
a.Where((x,i)->i.IsEven).Sum)
end.
Пример
48 -43 -46 37 34 41 30 47 26 -47 9 -43 -37 -45 2
Сумма элементов на нечетных местах 66