Question

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

Answer 1

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.