let read () = Scanf.scanf "%d " (fun i -> i) let () = let n = read () in Array.init n (fun _ -> read ()) |> Array.fold_left (fun (e, o) x -> if x mod 2 = 0 then (e + 1, o) else (e, o + 1)) (0, 0) |> (fun (e, o) -> Printf.printf "%d\n" (abs (e - o)))