Cod sursa(job #162580)

Utilizator robert_dDragan Robert robert_d Data 20 martie 2008 12:21:49
Problema Operatii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program operatii;
var n,x,y,i:longint;
    sum:int64;
    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.