var a:array[1..60000] of longint;
    f,g:text;
    suma,op,i,n,m,dat,ziua,x,y:longint;

procedure update(nod,st,dr:longint);
 var mij:longint;
 begin
  if st=dr then
   inc(a[nod],dat)
  else begin
   mij:=(st+dr) shr 1;
   if ziua<=mij then
    update(nod shl 1,st,mij)
   else
    update(nod shl 1+1,mij+1,dr);
   a[nod]:=a[nod shl 1]+a[nod shl 1+1];
  end;
 end;

procedure query(nod,st,dr:longint);
 var mij:longint;
 begin
  if (x<=st) and (y>=dr) then
   suma:=suma+a[nod]
  else
   if st<dr then begin
    mij:=(st+dr) shr 1;
    if x<=mij then
     query(nod shl 1,st,mij);
    if y>mij then
     query(nod shl 1+1,mij+1,dr);
   end;
 end;

begin
 assign(f,'datorii.in'); reset(f);
 assign(g,'datorii.out'); rewrite(g);
 read(f,n,m);
 for ziua:=1 to n do begin
  read(f,dat);
  update(1,1,n);
 end;
 for i:=1 to m do begin
  read(f,op);
  if op=1 then begin
   read(f,x,y);
   suma:=0;
   query(1,1,n);
   writeln(g,suma);
  end
  else begin
   read(f,ziua,dat);
   dat:=-dat;
   update(1,1,n);
  end;
 end;
 close(f); close(g);
end.