Cod sursa(job #289156)
Utilizator | Data | 26 martie 2009 15:11:53 | |
---|---|---|---|
Problema | Operatii | Scor | 100 |
Compilator | fpc | Status | done |
Runda | aa | Marime | 0.3 kb |
var s:int64;
n,n1,n2,i:longint;
begin
assign(input,'operatii.in');
reset(input);
read(input,n);
read(input,n1);
s:=n1;
for i:=1 to n-1 do begin
read(input,n2);
if n2>n1 then
s:=s+n2-n1;
n1:=n2;
end;
assign(output,'operatii.out');
rewrite(output);
write(output,s);
close(output);
end.