记录编号 22231 评测结果 AAAAAAAAAA
题目名称 邮递员 最终得分 100
用户昵称 Gravataritachi 是否通过 通过
代码语言 Pascal 运行时间 0.009 s
提交时间 2010-11-17 21:51:52 内存使用 0.21 MiB
显示代码纯文本
program eur(input,output);
var
ss:array[1..200,1..200]of integer;
ans:array[1..10000]of integer;
n,a,x,y,k,i:integer;
 procedure deal(i:integer);
 var
 j:integer;
 begin
  for j:= 1 to n do
  while ss[i,j]<>0 do
   begin
    dec(ss[i,j]);
    dec(ss[j,i]);
    deal(j);
   end;
   ans[y]:=i;
   inc(y);
 end;
begin
fillchar(ss,sizeof(ss),0);
fillchar(ans,sizeof(ans),0);
assign(input,'carrier.in');
reset(input);
assign(output,'carrier.out');
rewrite(output);
readln(n,k);
for i:= 1 to n do
read(a);
for i:= 1 to k do
begin
read(x,y);
inc(ss[x,y]);
inc(ss[y,x]);
end;
y:=1;
deal(1);
writeln(k);
for x:= y-1 downto 1 do
write(ans[x],' ');
close(input);
close(output);
end.