编译通过...
├ 测试数据 01：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 02：运行超时|格式错误...
├ 测试数据 03：答案错误...程序输出比正确答案长
├ 测试数据 04：答案错误...程序输出比正确答案长
├ 测试数据 05：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 06：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 07：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 08：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 09：答案错误... ├ 标准行输出
├ 错误行输出
├ 测试数据 10：答案错误... ├ 标准行输出
├ 错误行输出
---|---|---|---|---|---|---|---|-
Unaccepted 有效得分：0 有效耗时：0ms怎么会这样?按书上打的啊?
1 条评论
-
jinyuming LV 7 @ 2009-07-18 20:09:20
PROGRAM
VAR
a,b:ARRAY[1..10002]OF longint;
i,j,n,p,t,x,y,min,method,ans:longint;
num:ARRAY[1..20000]OF integer;
BEGIN
readln(n);
fillchar(num,sizeof(num),0);
For i:=1 to n do
BEGIN
read(t);
num[t]:=num[t]+1;
b[i]:=maxlongint;
END;
p:=0;
for i:=1 to 20000 do
for j:=1 to num[i] do
begin
p:=p+1;
a[p]:=i;
end;
p:=0;
x:=1;
y:=1;
ans:=0;
for i:=1 to n-1 do
begin
min:=maxlongint;
if(a[x]+a[x+1]
- 1
