Cod sursa(job #110117)

Utilizator tiger_10Dutescu Radu Alin tiger_10 Data 25 noiembrie 2007 18:05:15
Problema Datorii Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.46 kb
var a:array[1..150] of longint;
    n,m,i,j,k,h,l,s:longint;
    f,g:text;
begin
 assign(f,'datorii.in');
 assign(g,'datorii.out');
 reset(f);
 rewrite(g);
 read(f,n);
 readln(f,m);
 for i:=1 to n do
  read(f,a[i]);
  readln(f);
 while m>0 do begin
  dec(m);
  read(f,k);
  read(f,j);
  readln(f,h);
  if k=0 then a[j]:=a[j]-h else
   begin
    s:=0;
    for l:=j to h do
     s:=s+a[l];
    writeln(g,s);
    end;
  end;
close(f);
close(g);
end.