第28届宁波市28届中小学生计算机竞赛初中组解题报告.docVIP

第28届宁波市中小学生计算机程序设计竞赛复赛解题报告（初中组）T1friend 首先求出每个点的度，然后找出目标点，再找出和这个点相邻的点（可以用链表也可以再扫一遍），基数排序一下就好了 var?i,j,n,k,l,m,t,max,max2:longint;a,b,c:array[0..1000011]of?longint; d:array[1..10011]of?boolean; begin ??assign(input,friend.in);assign(output,friend.out);reset(input);rewrite(output); ??readln(n,m);for?i:=1?to?m?do?begin?read(a[i],b[i]);inc(c[a[i]]);inc(c[b[i]]);end; ??for?i:=1?to?n?do ??begin ????if?c[i]max?then?begin?max:=c[i];max2:=i;end;//找最大值 ??end; ??fillchar(d,?sizeof(d),?false);? ??for?i:=1?to?m?do?if?a[i]=max2?then?d[b[i]]:=true?else?if?b[i]=max2?then?d[a[i]]:=true;//统计和哪些点连通 ??for?i:=1?to