记录编号 22240 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 Gravatarnick09 是否通过 通过
代码语言 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.