Marx2002 2016-08-16 19:42:13
点我顶贴
收藏
删除
var n,m,p,i,x,y,z,j,ans:longint;
f:array [1..10000] of longint;
begin
readln(n,m);
for i:=1 to n do
f[i]:=i;
for i:=1 to m do
begin
read(x,y);
z:=f[x];
for j:=1 to n do
if f[j]=z then f[j]:=f[y];
end;
for i:=1 to n do
begin
p:=0;
for j:=1 to n do
if f[j]=i then inc(p);
if p>ans then ans:=p;
end;
write(ans);
end.
//另:样例的说明中有一个字打错