编译通过...

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

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

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

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

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

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

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

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

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

├ 测试数据 10：运行超时...

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

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

type

aa=array[1..10000]of string;

var

a,b:aa;

c:array[1..10000,0..10000]of longint;

t:string;

n,m,i,j,sum,k:longint;

procedure qsort(l,r:longint);

var i,j:longint;mid:string;

begin

i:=l;j:=r;mid:=a[(i+j)shr 1];

repeat

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

if ij;

if l