Cod sursa(job #282177)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 17 martie 2009 00:28:09
Problema Operatii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
program operatii;
var n,i,s,nr1,nr2:int64;
begin
assign(input,'operatii.in');
reset(input);
read(input,n);
read(input,nr1);
s:=nr1;
for i:=1 to n-1 do begin
    read(input,nr2);
    if nr2>nr1 then s:=s+nr2-nr1;
    nr1:=nr2;
    end;
assign(output,'operatii.out');
rewrite(output);
write(output,s);
close(output);
end.