6、 begin tmp:=tmodmax; while(index[tmp]<>0)and(index[tmp]<>t)do tmp:=(tmp+1)modmax; locate:=tmp; end; procedureint(t:longint); begin index[locate(t)]:=t; end; functionmember(t:longint):boolean; begin ifindex[locate(t)]=tthenmember:=true elsemem
7、ber:=false; end; procedureinit; varshu,i:longint; begin assign(fin,'subset.in'); assign(fout,'subset.out'); reset(fin); rewrite(fout); close(fout); fillchar(index,sizeof(index),0); rea