var fi,fo:text;
    n,i:longint;
    ct:int64;
    v:array[0..1000000]of word;
begin
  assign(fi,'operatii.in'); reset(fi);
  assign(fo,'operatii.out'); rewrite(fo);
  readln(fi,n);
  ct:=0;
  for i:=1 to n do
    begin
      read(fi,v[i]);
      if v[i]>v[i-1] then
         inc(ct,v[i]-v[i-1]);
    end;
  writeln(fo,ct);
  close(fi);
  close(fo);
end.