VAR t,i,j,s:int64; n:array[1..101] of int64; a:array[1..101,1..101] of int64;
Begin
Readln(t);
for i:=1 to t do
Begin
Readln(n[i]);
for j:=1 to n[i] do
Begin
Read(a[i,j]);
end;
Readln;
end;
for i:=1 to t do
Begin
s:=0;
for j:=1 to n[i] do
Begin
s:=s + a[i,j];
end;
if (s mod 3 = 0) then Writeln('Yes') else Writeln('No');
end;
Readln;
END.