program ggwp;
const  n = 10;
var  a :array [1..n] of integer;
i, p :integer;
begin
  randomize;
  for i:= 1 to n do
   a[i]:= random(20);
   p:= 0;
  for i:= 1 to n do
   if not odd(i) and odd(a[i]) then
    p:= p + 1;
  for i:= 1 to n do
   write(a[i],' ');
   writeln;
   writeln(p);
end.