n, m = gets.chomp.split.map(&:to_i)
a = gets.chomp.split.map(&:to_i)
d = []

n.times do |i|
  d << [1, a[i]]
end
m.times do
  b, c = gets.chomp.split.map(&:to_i)
  d << [b, c]
end

d.sort_by! {|_, y| y }
res = 0
while n > 0 && !d.empty?
  b, c = d.pop
  cnt = [b, n].min
  res += cnt * c
  n -= cnt
end
puts res