Question

дан одномерный массив целых чисел найти сумму нечетных элементов

Answer 1

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Sнеч=',a.Where((x,i)->i.IsEven).Sum)
end.

Тестовое решение
n= 15
59 16 -75 -21 -18 -21 -1 85 10 0 18 52 91 83 22
Sнеч=106