var n,m,i,j,k,o,p,s:longint;
    a:array[1..15000] of longint;
    
begin
//  assign(input,'input.in');
  assign(input,'datorii.in');
  assign(output,'datorii.out');
  reset(input);
  rewrite(output);
  read(n,m);
  for i:=1 to n do read(a[i]);
  for i:=1 to m do begin
    read(o,p,k);
    if o=0 then a[p]:=a[p]-k;
    if o=1 then begin
      s:=0;
      for j:=p to k do
        s:=s+a[j];
      writeln(s);
    end;
  end;
end.