Question

Массив А состоящий из n элементов. Найти среднее арифметическое его элементов с нечетными номерами.

Answer 1

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
// Элементы нумеруются от нуля

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
  Writeln('Mнечет=',a.Where((x,i)->i.IsOdd.Average)
end.

Пример
n= 16
-72 40 47 -74 -34 -99 8 -83 55 49 -6 -26 -15 2 4 0
Mнечет=-23.875