; Enter your code here. Read input from STDIN. Print output to STDOUT
;
(require '[clojure.string :as str])

(read-line)

(let [xs (read-line)
      xs (map #(Integer/parseInt %) (str/split xs #" "))
    ]
    (print
    (second 
    (reduce (fn [[height count] x] 
        (cond 
        (> x height) [x 1]
        (= x height) [height (inc count)]
              
               :else [height count])
        ) [-1 0] xs)
    ))
)