Массивы. Определить количество четных частей стоящих на нечетных. в паскале

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

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

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Количество четных элементов на нечетных местах равно',

     a.Where((v, i)-gt; v.IsEven and i.IsEven).Count)

end.

-----------------------------

n= 13

20 -26 28 -45 6 -32 33 25 48 -49 28 -18 9

Количество четных частей на нечетных местах одинаково 5

Нечаянно сгенерированный массив из 15 частей в спектре от -20 до 20.

const MAX = 15;

var

 a: array [1 .. MAX] of integer;

 i, k: integer;

begin

 randomize;

 k := 0;

 writeln(' *** Сгенерированный массив *** ');

 for i := 1 to MAX do

 begin

   a[i] := random(41) - 20;

   write(' ', a[i]);

   if ((i mod 2) lt;gt; 0) and (a[i] mod 2 = 0) then

     Inc(k);

 end;

 writeln;

 writeln('Кол-во четных частей на нечетных местах = ', k);

end.