Cod sursa(job #114906)

Utilizator h_istvanHevele Istvan h_istvan Data 16 decembrie 2007 09:28:23
Problema Operatii Scor 80
Compilator fpc Status done
Runda preONI 2008, Runda 2, Clasa a 9-a Marime 0.38 kb
program operatii;
var f:text;
    n,i,r,u,e:longint;

begin
     assign(f,'operatii.in');
     reset(f);
     readln(f,n);
     read(f,r);
     e:=r;
     for i:=2 to n do
     begin
          read(f,u);
          if(u > r) then e:=e+u-r;
          r:=u;
     end;
     close(f);

     assign(f,'operatii.out');
     rewrite(f);
     writeln(f,e);
     close(f);
end.