var a:array[1..15000] 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.