Cod sursa(job #162578)

Utilizator robert_dDragan Robert robert_d Data 20 martie 2008 12:20:19
Problema Operatii Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
program operatii;
var n,x,y,i,sum:longint;
    f:text;

begin
assign(f,'operatii.in'); reset(f);
readln(f,n);
x:=0; sum:=0;
for i:=1 to n do begin
    read(f,y);
    if x<y then inc(sum,y-x);
    x:=y;
end;
close(f);
assign(f,'operatii.out'); rewrite(f);
writeln(f,sum);
close(f);
end.