419488575 2008-08-17 21:43:00
点我顶贴
收藏
删除
我的程序是
program exale；
var h,a,max:array[0..10000] of integer；
k,m,n,i,j:integer；
begin
readln(n)；
h[0]:=30001；
for i:=1 to n do read(h[i])；
fillchar(max,sizeof(max),1)；
for i:=1 to n do
for j:=n to i+1 do
if (h[j]<=h[i]) and (max[i]+1>max[j]) then max[j]:=max[i]+1；
for i:=1 to n do
if max[i]>m then m:=max[i]；
fillchar(a,sizeof(a),30001)；
for i:=0 to n do
begin
repeat
inc(j)；
until h[i]<=a[j]；
a[j]:=h[i]；
end；
for i:=1 to n do
if a[i]<>30001 then inc(k)；
write(m,’ ’,k)；
end.
评判结果是
测评机： Xeost[5]
得分： 0分
提交日期： 2008-8-18 9:14:00
有效耗时： 该状态没有记录
测试结果1: 测试结果错误.错误结果为:259 8
正确结果应为:6 2
测试结果2: 测试结果错误.错误结果为:258 7
正确结果应为:5 2
测试结果3: 测试结果错误.错误结果为:258 7
正确结果应为:1 7
测试结果4: 测试结果错误.错误结果为:259 13
正确结果应为:7 4
测试结果5: 测试结果错误.错误结果为:258 15
正确结果应为:6 7