Cod sursa(job #122275)

Utilizator radu_voroneanuVoroneanu Radu Stefan radu_voroneanu Data 11 ianuarie 2008 17:40:18
Problema Operatii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var f,g:text;
    i,x,y,n:longint;
    nr:qword;
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.