Отыскать количество чётных частей массива,имеющих нечётные индексы N=10 [-30;30]. Ввод

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -30, 30);

 a.Println;

 var k := a.Where((v, i)-gt; v.IsEven and i.IsEven).Count;

 Println('Разыскиваемое количество одинаково', k)

end.

29 7 -2 -7 -26 -21 -9 -26 -10 27

Разыскиваемое количество равно 3

Предполагается, что индексы массива идут от 1. Если они идут от нуля, надобно поменять i.IsEven на i.IsOdd