n, k = gets.split.map(&:to_i)
a = gets.split.map(&:to_i)
a = a.sort.reverse

sum = 0
k.times do |i|
	if (i != 0 && a[i] < 0) 
		break
	end
	sum += a[i]
end
p sum