program datorii;
var
  Napok: array[1..15000] of word;
  bin: byte;
  n, a, b: word;
  m: longint;
  f, g: text;
  i: longint;

Function BMuvelet(a, b: word): int64;
var
  i: word;
  r: int64;
begin
  r := 0;
  for i := a to b do
    r := r + Napok[i];
  BMuvelet := r;
end;

begin
  Assign(f, 'datorii.in');
  Assign(g, 'datorii.out');
  ReWrite(g);
  Reset(f);
  ReadLn(f, n, m);
  for i := 1 to n do Read(f,Napok[i]);
  for i := 1 to m do
    begin
      Read(f, bin);
      case bin of
        0: begin
             ReadLn(f, a, b);
             Dec(Napok[a], b);
           end;
        1: begin
             ReadLn(f, a, b);
             WriteLn(g, BMuvelet(a,b))
           end;
      end;
    end;
  Close(f);
  Close(g);
end.