import Data.List
import Data.Ord

main = do
    [n,k] <- words <$> getLine
    alist <- words <$> getLine
    let result = sum $ take (read k) $ sortOn Down $ filter (>0) $ (map read :: [String] -> [Int]) alist
    print result