program datorii;
 var n,m,i,j,s,x,y,z:longint;
    a:array[1..20000] of longint;

 begin
 assign(input,'datorii.in'); reset(input);
 assign(output,'datorii.out'); rewrite(output);
 readln(n,m);
 for i:=1 to n do read(a[i]);
 readln;
 for i:=1 to m do
   begin
   readln(x,y,z);
   if x=0 then a[y]:=a[y]-z
     else begin
          s:=0;
          for j:=y to z do s:=s+a[j];
          writeln(s);
          end;
     end;
 close(output);
end.