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