测评机: Xeond[6]
得分: 100分 [我要评价一下题目~]
提交日期: 2012-7-12 10:36:00
有效耗时: 2219毫秒
测试结果1: 通过本测试点|有效耗时234ms
测试结果2: 通过本测试点|有效耗时157ms
测试结果3: 通过本测试点|有效耗时203ms
测试结果4: 通过本测试点|有效耗时156ms
测试结果5: 通过本测试点|有效耗时187ms
测试结果6: 通过本测试点|有效耗时188ms
测试结果7: 通过本测试点|有效耗时187ms
测试结果8: 通过本测试点|有效耗时329ms
测试结果9: 通过本测试点|有效耗时422ms
测试结果10: 通过本测试点|有效耗时156ms
提交代码: view sourceprint?01.program ex;
02.var a:array[1..10000,1..2]of integer;
03.n,m,i,j,k,b,z:integer;
04.procedure sd(var g,y:integer);
05.var t:integer;
06.begin
07.t:=g;g:=y;y:=t;
08.end;
09.begin
10.read(n,m);
11.for i:= 1 to n do
12.read(a[i,1],a[i,2]);
13.m:=trunc(m*1.5);
14.
15.for i:= 1to n-1 do
16.for j:=i+1 to n do
17.if (a[i,2]<a[j,2])or ((a[i,2]=a[j,2])and (a[i,1]>a[j,1])) then
18.for k:=1 to 2 do
19.sd(a[i,k],a[j,k]);
20.
21.
22.b:=a[m,2];
23.for i:=m+1 to n do
24.if a[i,2]=a[m,2] then
25.z:=z+1;
26.m:=m+z;
27.write(a[m,2],' ');
28.writeln(m);
29.for i:=1 to m do
30.writeln(a[i,1], ' ',a[i,2]);
31.end.