(defn for-input []
  (->> (clojure.string/split (read-line) #"\s")
    (map #(Integer/parseInt %))))

(defn input []
  (vector
    (for-input)
    (for-input)
    (for-input)))

(defn Palace [[[N] [T A] Hs]]
  (letfn [(temp [x] (Math/abs (- 12 (- T (* x 0.006)))))]
    (let [Hs' (mapv temp Hs)]
      (inc (.indexOf Hs' (apply min Hs'))))))

(->> (input)
  Palace
  println)