var a,b,f:array[0..1000001] of longint;
s:array[0..1000001,1..3] of longint;
n,m,i,j,sum,top,pp:longint;
t:boolean;
begin
assign(input,'p1782.in');assign(output,'p1782.out');
reset(input);rewrite(output);
readln(n,m);top:=m;
for i:=1 to n do read(a[i]);readln;
for i:=1 to m do
begin
readln(s[i,1],s[i,2],s[i,3]);
dec(f[s[i,2]],s[i,1]);inc(f[s[i,3]+1],s[i,1]);
end;
t:=false;
for i:=1 to n do
begin
inc(sum,f[i]);b[i]:=a[i]+sum;
if b[i]<0 then
begin
t:=true;pp:=b[i];
for j:=top downto 1 do
begin
if (s[j,2]<=i) and (s[j,3]>=i) then inc(pp,s[j,1]);
if pp>=0 then break;
end;
top:=j;
end;
end;
if not(t) then write(0)
else begin writeln(-1);write(top);end;
close(output);
end.

疯了，在cenaAC，这里就过2点！！！