Cod sursa(job #183677)

Utilizator victor_bla_blaDumitrescu Victor victor_bla_bla Data 22 aprilie 2008 14:22:09
Problema Operatii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program operatii;
var n,i,a,b,op: int64;
f: text;
begin
     assign(f,'operatii.in');
     reset(f);
     readln(f,n);
     for i:=1 to n do
     begin
          read(f,a);
          if a>b then op:=op+a-b;
          b:=a;
     end;
     close(f);
     assign(f,'operatii.out');
     rewrite(f);
     write(f,op);
     close(f);
end.