{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
import qualified Data.ByteString.Char8 as BC
import           Data.List             (minimumBy)
import           Data.Maybe            (fromJust)
import           Data.Ord              (comparing)

main :: IO ()
main = do
  n <- readLn :: IO Int
  [t, a] <- getInts
  hs <- getInts
  print $ solve n t a hs

solve :: Int -> Int -> Int -> [Int] -> Int
solve n t a hs = fst . minimumBy (comparing snd) $ zip [1 .. n] [abs (a' - t' - fromIntegral h * 0.006) | h <- hs]
  where a' = fromIntegral a
        t' = fromIntegral t

readInts :: BC.ByteString -> [Int]
readInts = map (fst . fromJust . BC.readInt) . BC.words

getInts :: IO [Int]
getInts = readInts <$> BC.getLine
