Дан одномерный массив, состоящий из 10 целых элементов. Найдите номера четных элементов, стоящих на нечетных местах.

Var a:array[1 ... 100]of integer;

nol, chet, nechet, i, n:integer;

begin

readln (n);

for i:=1 to n do begin

readln (a[i]);

if (a[i] mod 2=0) and (a[i]0) then chet:=chet+1;

if (a[i] mod 2=1) then nechet:=nechet+1;

if a[i]=0 then nol:=nol+1;

end;

writeln ('четных : ', chet,' ','нечетных : ', nechet,',' ', нулевых : ', nol);

end.