gjy@5885 2009-11-08 02:25:00
点我顶贴
收藏
删除
var i,j,k,l,n,m,max:longint；
a:array[1..10000]of longint；
begin
readln(n,m)；
for i:=1 to n do
begin
readln(k)；
max:=a[1]； l:=1；
for j:=2 to m-k+1 do if a[j]<max then begin max:=a[j]；l:=j；end；
max:=0；
for j:=l to l+k-1 do if a[j]>max then max:=a[j]；
for j:=l to l+k-1 do
a[j]:=max+k；
end；
max:=a[1]；
for i:=2 to m do if a[i]>max then max:=a[i]；
writeln(max)；
end.
如果输入
5 10
3
2
1
4
2
输出应该为5
本程序却输出6
谁能教我