program datorii;
var m,i,j,n,a,b,c,s:longint;
    v:array[1..15000]of integer;

begin
assign(input,'datorii.in');reset(input);
assign(output,'datorii.out');rewrite(output);
readln(n,m);
for i:=1 to n do read(v[i]);
for i:=1 to m do begin
        readln(a,b,c);
        if a=0 then dec(v[b],c)
               else
                begin
                 s:=0;
                 for j:=b to c do inc(s,v[j]);
                 writeln(s);
                end;
        end;
close(input);close(output);
end.