program datoriile;
var v:array[1..1000] of integer;
    F,G:text;
    m,n,i,j,s,a,b:longint;
    x:byte;
begin
assign(F,'datorii.in'); reset(F);
assign(G,'datorii.out');rewrite(G);
read(F,n,m);
for i:=1 to n do
    read(F,v[i]);
for i:=1 to m do
    begin
    read(F,x,a,b);
    if x=0 then v[a]:=v[a]-b
           else begin
                s:=0;
                for j:=a to b do
                    s:=s+v[j];
                writeln(G,s);
                end;
    end;
close(G);
end.