main = do
  _ <- getLine
  [t, a] <- map read . words <$> getLine
  h <- map read . words <$> getLine
  let ht = map (\x -> t - x * 0.006) h
  let ha = map (\x -> abs $ a - x) ht
  print $ 1 + length (takeWhile (/= minimum ha) ha)
  return ()
