let read () = Scanf.scanf "%d " (fun i -> i) let () = let n = read () in let a = Array.init n (fun _ -> read ()) in let c = Array.fold_left (fun c e -> max c (2 * (n - 1) - e / 2)) 0 a in if c <> n - 1 then Printf.printf "%d %d\n" c (n - c) else let rec doit i = if i = n then true else if a.(i) <> a.(i-1) then false else doit (i + 1) in if doit 1 then Printf.printf "%d %d\n" n 0 else Printf.printf "%d %d\n" c (n - c)