2. дан массив из n элементов. определить количество элементов, имеющих четные порядковые номера и являющихся нечетными числами.

Var a:array[1..1000] of longint;
n, i, k: longint;
begin
k:=0
readln(n);
for i:=1 to n do begin
                              readln(a[i]);
                              if (i mod 2 = 0) and (a[i] mod 2 = 1) then k:=k+1;
                        end;
writeln(k);
end.