n, m = gets.chomp.split.map(&:to_i)
a = gets.chomp.split.map(&:to_i)
d = []
for i in 0..(m-1) do
  b, c = gets.chomp.split.map(&:to_i)
  d += Array.new(b, c)
end

d.sort!

result = 0
d_item = d.pop
a.sort.each do |a_item|
  if d_item.nil?  || d_item < a_item
    result += a_item
  else
    result += d_item
    d_item = d.pop
  end
end
puts result