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

// 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