编译通过...

├ 测试数据 01：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 02：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 03：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 04：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 05：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 06：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 07：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 08：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 09：运行时错误...| 错误号: 216 | 存取非法

├ 测试数据 10：运行时错误...| 错误号: 216 | 存取非法

Program p1002;

Var

a,r:Array[0..10000]of Integer;

b:Array[0..500]of Longint;

i,j,s,t,l,m,nn:Longint;

Procedure init;

Var

i,j,k:Integer;

Begin

Readln(l);

Readln(s,t,m);

For i:=1 to m do

Read(b[i]);

/////sort;

For i:=1 to m-1 do

For j:=i+1 to m do

IF b[i]>b[j] then

Begin

k:=a[i];

a[i]:=a[j];

a[j]:=k;

End;

nn:=l;

k:=0;

b[0]:=0;

For i:=1 to m do

Begin

IF b[i]-b=0) then

IF (r[i]>r+a[i]) then

r[i]:=r+a[i];

Writeln(r[nn]);

End;

End.