program datorii;

var v : array[1..15000] of word;
    n,j,b,c : word;
    m,i,s : longint;
    a : byte;
    f,g : text;

begin
    assign(f,'datorii.in'); reset(f);
    assign(g,'datorii.out'); rewrite(g);

    readln(f,n,m);

    for j := 1 to n do read(f,v[j]);
    readln(f);

    for i := 1 to m do begin
        readln(f,a,b,c);
        if a = 0 then v[b] := v[b]-c
        else begin
            s := 0;
            for j := b to c do s := s+v[j];
            writeln(g,s);
            end;
        end;
    close(f); close(g);
end.