Cod sursa(job #122274)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 11 ianuarie 2008 17:39:38
Problema Operatii Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
Raporteaza aceasta sursa 
var f,g:text;
    i,x,y,nr,n:longint;
begin
 assign(f,'operatii.in'); reset(f);
 assign(g,'operatii.out'); rewrite(g);
 read(f,n);
 y:=0;
 nr:=0;
 for i:=1 to n do begin
  read(f,x);
  if x>y then
   inc(nr,x-y);
  y:=x;
 end;
 writeln(g,nr);
 close(f); close(g);
end.