import qualified Data.Vector.Mutable as MV
import Control.Monad.ST

solve :: Int -> [Int] -> Int
solve s l = runST $ MV.replicate s 0 >>= \v -> go v l
  where
    go v []  = fst <$> MV.ifoldr (\i x (ai,ax) ->
        if ax < x then (i,x) else (ai,ax)) (0,0) v
    go v (x:xs) = do
        MV.modify v succ x
        go v xs

main :: IO ()
main = do
    _ <- readLn :: IO Int
    l <- map read . words <$> getLine :: IO [Int]
    print $ solve 7 l