let split_string ?(pattern="") = Str.split @@ Str.regexp pattern
let n = Scanf.sscanf (read_line ()) "%d" @@ fun n -> n
let a = read_line () |> split_string ~pattern:" " |> List.map int_of_string

let () =
  let ans = ref 0 in
  List.iteri (fun i a ->
    if i mod 2 = 0 && a mod 2 = 1 then incr ans
  ) a;
  Printf.printf "%d\n" !ans