import Data.List
import Data.Ord

main :: IO ()
main = do
    _ <- getLine
    [t,a] <- map read . words <$> getLine :: IO [Int]
    h <- map read . words <$> getLine :: IO [Int]
    print . snd . minimumBy (comparing fst)
          $ zip [ abs (toDouble a - (toDouble t) - (toDouble x) * 0.006) | x <- h ] [1..]
  where
    toDouble :: Int -> Double
    toDouble = fromIntegral