const   fi='';
        nmax=10000;
type    data=longint;
var
        f:text;
        A:array[0..nmax+1] of data;
        n,test:data;
 
function tknp(dau,cuoi,x:data):data;
var     giua:data;
begin
        while dau<=cuoi do
                begin
                        giua:=(dau+cuoi) div 2;
                        if a[giua]=x then
                                exit(giua)
                        else
                                if a[giua]>x then
                                        cuoi:=giua-1
                                else
                                        dau:=giua+1;
                end;
        exit(0);
end;
 
function check(X,sl:data):boolean;
var     i,j,id,vt:data;
begin
        id:=0;
        for i:=1 to sl do
                begin
                        vt:=tknp(id,n,a[id]+x);
                        if vt=0 then exit(false);
                        id:=vt;
                end;
        exit(true);
end;
 
 
procedure xuli;
var     i,j:data;
begin
        i:=a[n];
        if a[n] mod i = 0 then
                        if check(a[n] div i, i) then
                                begin
                                        writeln(test,' ',a[n] div i);
                                        exit;
                                end;
        i:=a[n] div 2;
        if a[n] mod i = 0 then
                        if check(a[n] div i, i) then
                                begin
                                        writeln(test,' ',a[n] div i);
                                        exit;
                                end;
 
 
        for i:=trunc(sqrt(a[n])) downto 2 do
                if a[n] mod i = 0 then
                        if check(a[n] div i, i) then
                                begin
                                        writeln(test,' ',a[n] div i);
                                        exit;
                                end;
        writeln(test,' ',a[n]);
end;
 
procedure docfile;
var     i,j,sl:data;
begin
        assign(f,fi); reset(f);
        read(f,sl);
        a[0]:=0;
        for i:=1 to sl do
                begin
                        read(f,test,n);
                        for j:=1 to n do
                                begin
                                        read(f,a[j]);
                                        a[j]:=a[j-1]+a[j];
                                end;
                        xuli;
                end;
 
        close(f);
end;
 
begin
        docfile;
end.
Chương trình đại khái là vậy , nếu muốn đúng yêu cầu bạn tự sửa lại nha.