(* Enter your code here. Read input from STDIN. Print output to STDOUT *)
let read_line_int () =
  let line = read_line () in
  let lst = Str.split (Str.regexp " ") line in
  let lst_int = List.map int_of_string lst in
  lst_int
;;

let num_candles = read_line_int();;
let candles = read_line_int();;
let max_h =
    List.fold_left (fun x y -> max x y) min_int candles
;;

let num = List.fold_left (fun x y -> if y == max_h then x+1 else x) 0 candles;;
print_int num;;