let rec f n t a ans lst =
  match n with
  | 0 -> ans
  | _ ->
    let buf = float_of_int (t) -. float_of_int (List.nth lst n) *. 0.006 in
    let ansT = float_of_int (t) -. float_of_int (List.nth lst ans) *. 0.006 in
    if abs_float (float_of_int (a) -. buf) < abs_float (float_of_int (a) -. ansT)
    then f (n-1) t a n lst
    else f (n-1) t a ans lst
let () =
  Scanf.scanf "%d\n"
    (fun n -> Scanf.scanf "%d %d\n"
        (fun t a ->
           Array.init n (fun _ -> Scanf.scanf " %d" (fun x -> x))
           |> Array.to_list
           |> f (n-1) t a 0
           |> (+) 1))
  |> print_int