问wikioi 上锁的抽屉（wikioi）

大家好,小金来为大家解答以上的问题。wikioi 上锁的抽屉，wikioi这个很多人还不知道,现在让我们一起来看看吧！

1、const oo=10003;var i,j,n,ans:integer; cost:longint; ansg:array[1..10000,1..2] of byte; g:array[1..100,1..100] of integer; d:array[1..100] of longint;procedure prim;var i,min,minp:integer; v:array[1..100] of boolean; pre:array[1..100] of integer;begin for i:=1 to n do d[i]:=oo; d[1]:=0; fillchar(v,sizeof(v),false); fillchar(pre,sizeof(pre),0); for i:=1 to n do begin min:=oo; for j:=1 to n do if (not v[j])and(d[j]0)and(g[pre[minp],minp]<>0) then begin inc(ans); inc(cost,g[pre[minp],minp]); if minpg[minp,j] then begin d[j]:=g[minp,j]; pre[j]:=minp; end; end;end;begin readln(n); for i:=1 to n do begin for j:=1 to n do read(g[i,j]); readln; end; ans:=0; cost:=0; prim; writeln(ans); for i:=1 to ans do writeln(ansg[i,1],,ansg[i,2]); writeln(cost);end.Pascal的。

本文到此分享完毕，希望对大家有所帮助。