let read () = Scanf.scanf "%d " (fun i -> i) let () = let n = read () in let a = Array.init n (fun _ -> read ()) in let m = Array.fold_left max min_int a in let c, t = Array.fold_left (fun (c, t) e -> if m = e then c + 1, t else c, t + 1) (0, 0) a in Printf.printf "%d %d\n" c t