_,k=gets.split.map(&:to_i)
a=gets.split.map(&:to_i).sort.reverse
puts a[0] + a[1,1000].select{|x|x>0}[0,k-1].inject(0,&:+)