#!/user/bin/env ruby

N, M = gets.chomp.split.map(&:to_i)

a = gets.chomp.split.map(&:to_i).sort

bc = []
while line = gets do
  tmp = line.chomp.split.map(&:to_i)
  bc << tmp
end


# p N, M 
# p a
# p bc
# p ""

# Bi項まで見て、cより小さければ書き換える。
# aをソートする。

bc.each do |bci|
  b = bci[0]
  c = bci[1]

  b.times do |j|
    # puts "j: #{j}"
    if a[j] < c then
      a[j] = c
    end
  end
  
  a = a.sort
  # p a
end

# p ""
# p a
puts a.inject(:+)
