Question

В целочисленом массиве A(35) найти количество нечетных элементов имеющих четные индексы. Считается что в массиве есть хотя бы один элемент, удовлетворяющий условию

Answer 1

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

begin
  var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
  Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.

Пример
-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49