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

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

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

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

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

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

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

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

什么意思

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

var n,i,ss,sss,qq,w:longint;

s:Array [1..1000] of longint;

procedure kp(l,r:longint);

var i,j,w,mid:longint;

begin

i:=l;j:=r;mid:=s[(i+j) div 2];

repeat

while s[i]mid do dec(j);

if ij;

if l