var n,i,a1,a2:longint;
    s:extended;
    f,g:text;


Begin
     assign(f,'operatii.in');
     assign(g,'operatii.out');
     reset(f);
              readln(f,n);
              read(f,a1);
              s:=a1;
              for i:=1 to n do
              begin
                   a2:=a1;
                   read(f,a1);
                   if a1-a2>0 then
                   begin
                        s:=s+a1-a2
                   end;
              end;

     close(f);
     rewrite(g);
                writeln(g,s:1:0);
     close(g);
End.