import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  n <- (read::String -> Int) <$> getLine
  [t, a] <- map (read::String -> Float) . words <$> getLine
  arr <- map (read::String -> Float) . words <$> getLine
  let temps = listArray (1, n) $ map (\x -> t - x * 0.006) arr
  print . snd $ foldl (\(val, index) i -> let diff = abs $ temps ! i - a
    in if diff < val then (diff, i) else (val, index)) (abs (temps ! 1 - a), 1) [2..n]