Cod sursa(job #115523)
Utilizator | Data | 16 decembrie 2007 12:55:30 | |
---|---|---|---|
Problema | Operatii | Scor | 90 |
Compilator | fpc | Status | done |
Runda | preONI 2008, Runda 2, Clasa a 9-a | Marime | 0.61 kb |
program operatii;
var f,g:text;
n:longint;
procedure iofile;
begin
assign(f,'operatii.in');reset(f);
assign(g,'operatii.out');rewrite(g);
readln(f,n);
end;
procedure solve;
var i:longint;
sum:int64;
lx,x:int64;
begin
lx:=0;
sum:=0;
for i:=1 to n do
begin
read(f,x);
if x>lx then sum:=sum+x-lx;
lx:=x;
end;
writeln(g,sum);
close(f);
close(g);
end;
begin
iofile;
solve;
end.