编译通过...

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

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

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

　├ 错误行输出

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

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

源程序如下:

Program ex1;

var flag,m,n,k,l,d,i,j,x,y,x1,y1:longint;

tmp,col,row:array[1..1000]of longint;

function min(a,b:longint):longint;

begin

if ab then exit(b);

end;

function notsame(a,b:longint):longint;

var t:longint;

begin

if ab then

begin

t:=a;

a:=b;

b:=t;

end;

notsame:=a;

end;

procedure quicksort(s,t:longint);

var i,j,k,x,t1:integer;

begin

i:=s;j:=t;

k:=random(t-s)+1;

x:=notsame(tmp[i],tmp[k]);

repeat

while (j>i)and(tmp[j]i) then

begin

t1:=tmp[i];tmp[i]:=tmp[j];tmp[j]:=t1;

end;

while (j>i)and(tmp[i]>=x) do inc(i);

if (j>i) then

begin

t1:=tmp[i];tmp[i]:=tmp[j];tmp[j]:=t1;

end;

until(i=j);

inc(i);dec(j);

if (m