n, k = gets.split(' ')
a = gets.split(' ')
a = a.map{|ai| ai.to_i}.sort
sum = 0
(1..k.to_i).each do |i|
	if a[a.size - i].to_i > 0
		sum += a[a.size - i].to_i
	end
end
p sum