n = gets.to_i
h = gets.split.map &:to_i
segs = [0..(n-1)]

cnt = 0

until segs.empty?
  seg = segs.pop
  
  min = h[seg.min_by { |i| h[i] }]
  cnt += 1 if min > 0
  
  i = seg.first
  seg.each do |j|
    h[j] -= min
    if h[j] == 0
      segs << (i..j-1) if i < j
      i = j+1
    end
  end
  if i < seg.last
    segs << (i..seg.last)
  end
end

p cnt