import Data.List
import Data.Maybe
main = do
  getLine
  [t,a] <- map read . words <$> getLine :: IO [Float]
  x <- map read . words <$> getLine :: IO [Float]
  print $ fromJust (elemIndex (foldl1 (min) (xs x t a)) (xs x t a)) + 1
    where xs x m t = map (\a ->  t - (m - (a*0.006))) x