编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 03：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 04：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 06：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 07：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 08：运行时错误...|错误号: -1073741571

├ 测试数据 09：运行时错误...|错误号: -1073741571

├ 测试数据 10：运行时错误...|错误号: -1073741571

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

program pas;

var

n,m,i,j,x:longint;

apple:array[1..10000]of longint;

taotao1,taotao2,taotao3:array[1..10000]of longint;

begin

read(n,m);

for i:=1 to n do

read(apple[i]);

for i:=1 to n do

for j:=i to n do

if apple[j]>apple[i] then

begin

x:=apple[i];

apple[i]:=apple[j];

apple[j]:=x;

end;

for i:=1 to m do

begin

read(taotao2[i]);

taotao1[i]:=i;

end;

for i:=1 to m do

for j:=i to m do

if taotao2[j]>taotao2[i] then

begin

x:=taotao2[i];

taotao2[i]:=taotao2[j];

taotao2[j]:=x;

x:=taotao1[i];

taotao1[i]:=taotao1[j];

taotao1[j]:=x;

end;

i:=1;

while itaotao1[i] then

begin

x:=taotao1[i];

taotao1[i]:=taotao1[j];

taotao1[j]:=x;

x:=taotao3[i];

taotao3[i]:=taotao3[j];

taotao3[j]:=x;

end;

for i:=1 to m do

write(taotao3[i],' ');

end.