Cod sursa(job #120654)
| Utilizator |  Diaconu Loredana Diaconu |
Data | 6 ianuarie 2008 10:39:50 |
|---|---|---|---|
| Problema | Operatii | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.29 kb |
var f,g:text;
n,b,a,i:longint;
nr:int64;
begin
assign (f,'operatii.in');reset (f);
assign (g,'operatii.out');rewrite (g);
readln (f,n);
read (f,b);
for i:=2 to n do begin
read (f,a);
if a<b then nr:=nr+b-a;
b:=a;
end;
nr:=nr+b;
writeln (g,nr);
close(f);close(g);
end.
