记录编号 |
22240 |
评测结果 |
AAAAAAAAAA |
题目名称 |
邮递员 |
最终得分 |
100 |
用户昵称 |
nick09 |
是否通过 |
通过 |
代码语言 |
Pascal |
运行时间 |
0.008 s |
提交时间 |
2010-11-18 07:30:59 |
内存使用 |
0.28 MiB |
显示代码纯文本
var x,y,z,n,i,j,k,ans,m,p:longint;
a,b:char;
t:array[0..201,0..201]of longint;
d:array[0..2000]of longint;
w:array[0..201] of longint;
procedure go(r:longint);
var i:longint;
begin
for i:=1 to n do
if (t[r,i]<>0) then
begin
dec(t[r,i]);dec(t[i,r]);
go(i);
end;
inc(p);d[p]:=r;
end;
Begin
assign(input,'carrier.in');reset(input);
assign(output,'carrier.out');rewrite(output) ;
readln(n,m);
for i:=1 to n do readln(w[i]);
for i:=1 to m do
begin
readln(x,y);
inc(t[x,y]);inc(t[y,x]);
end;
writeln(m);
p:=0;
go(1);
for i:=p downto 1 do write(d[i],' ');
close(input);close(output);
end.