s数组存家庭情况，0表示目前没有家庭。
var
  s:array[1..100]of longint;
  v:array[1..100]of boolean;
  sum:array[1..100]of longint;
  i,j,k,l,m,n,a,b,num,max:longint;
begin
  assign(input,'family.in');reset(input);
  assign(output,'family.out');rewrite(output);
  readln(n,m);num:=0;
  fillchar(s,sizeof(s),0);
  fillchar(sum,sizeof(sum),0);
  for i:=1 to m do
    begin
      readln(a,b);
      if (s[a]=0)and(s[b]=0) then begin inc(num); s[a]:=num; s[b]:=num; end
      else
      if (s[a]<>0)and(s[b]=0) then s[b]:=s[a]
      else
      if (s[a]=0)and(s[b]<>0) then s[a]:=s[b]
      else
      if (s[a]<>0)and(s[b]<>0) then
      begin
        k:=s[b];
        for j:=1 to n do
          if s[j]=k then s[j]:=a;
      end;
    end;
  fillchar(v,sizeof(v),0);num:=0;max:=1;
  for i:=1 to n do
    if s[i]=0 then inc(num)
              else begin
                     if not v[s[i]] then begin
                                           v[s[i]]:=true;
                                           inc(num);
                     end;
                     inc(sum[s[i]]);
                     if sum[s[i]]>max then max:=sum[s[i]];
                   end;
  writeln(num,' ',max);
  close(input);close(output);
end.

可以设立一个集合数组
一个整型数组{用来统计个数}
读入两个数据后
立刻进行判断
如果一旦有一个数据属于某个集合
就把另一个数据放入哪个集合 并把相应集合的个数加1
如果探测完所有已存在的集合均不符合条件的话
可以把计数器加1再开辟一个记录单元
把两个数据存放进去 把个数赋值为2
最后个数就是计数器
最多数就是整型数组里数值最大的一组

1楼:  请附算法!!!

和2楼的差不多，就是用数组代替了几何罢了。

可是这道题目我也用数组编过
判重的过程比较麻烦
利用数组的性质可以省略这一步过程
使得程序更加简化