Cod sursa(job #175178)

Utilizator irene_mFMI Irina Iancu irene_m Data 9 aprilie 2008 17:39:59
Problema Operatii Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var a:array [0..1000000] of 0..100000;
  i,n:longint; nr:int64;
  f,g:text;

begin
  assign(f,'operatii.in'); assign(g,'operatii.out');
  reset(f); rewrite(g);
  readln(f,n);
  nr:=0;
  for i:=1 to n do
    begin
    read(f,a[i]);
    if a[i]>a[i-1] then nr:=nr+(a[i]-a[i-1]);
    end;
  writeln(g,nr);
  close(f);
  close(g);
end.