const nmax=15001;  
var c:array[1..nmax]of longint;  
    n,x,y,z:integer;  
    m,i:longint;  
    f,g:text;  

procedure update(poz,val:integer);  
var k:integer;  
begin  
k:=poz;  
while (k<=n) do begin  
                c[k]:=c[k]+val;  
                k:=(k or (k-1))+1;  
                end;  
end;  

function query(ld:integer):longint;  
var k:integer; 
    s:longint;  
begin  
k:=ld;s:=0;  
while (k>0) do begin  
               s:=s+c[k];  
               k:=k and (k-1);  
               end;  
query:=s;  
end;  

begin {main} 

assign(input,'datorii.in');reset(input);  
assign(output,'datorii.out');rewrite(output);  
readln(n,m);  

for i:=1 to n do c[i]:=0;  

for i:=1 to n do begin read(x); update(i,x); end;  

for i:=1 to m do begin  
                 readln(x,y,z);  
                 if x=0 then update(y,-z)  
                        else writeln(query(z)-query(y-1));  
                 end;  

close(input);close(output);  
end.