不过思路是这个
var a:array[1..3000,1..3000]of qword；
n,k,i,j,h:longint；
function b(i:integer):boolean；
var u:longint；
begin
b:=true；
for u:=1 to n-i do
if a[i,u]<>a[i,u+1] then
begin
b:=false；
break；
end；
end；
begin
readln(n,k)；
for i:=1 to n do read(a[1,i])；
i:=1；
repeat
inc(i)；
for j:=1 to n-i+1 do a[i,j]:=a[i-1,j+1]-a[i-1,j]；
until b(i)；
h:=i；
for i:=n-h+2 to n-h+1+k do a[h,i]:=a[h,i-1]；
for i:=h-1 downto 1 do
for j:=n-i+2 to n-i+1+k do
a[i,j]:=a[i+1,j-1]+a[i,j-1]；
writeln(’Yes’)；
write(a[1,n+1])；
for i:=n+2 to n+k do write(’ ’,a[1,i])；
end.
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时47:ms
测试结果5: 通过本测试点|有效耗时47:ms
测试结果6: 通过本测试点|有效耗时172:ms
测试结果7: 通过本测试点|有效耗时62:ms
测试结果8: 运行错误|普通保护错误
测试结果9: 通过本测试点|有效耗时47:ms
测试结果10: 通过本测试点|有效耗时47:ms
提交代码： var a:array[1..4000,1..4000]of qword；
n,k,i,j,h:longint；
s,t:ansistring；
o,p:longint；
function b(i:longint):boolean；
var u:longint；
begin
b:=true；
for u:=1 to n-i do
if a[i,u]<>a[i,u+1] then
begin
b:=false；
break；
end；
end；
begin
readln(n,k)；
readln(s)；
o:=1；
for i:=1 to n-1 do
begin
p:=0；
while s[o+p]<>’ ’ do inc(p)；
t:=copy(s,o,p)；
val(t,a[1,i],h)；
o:=o+p+1；
end；
t:=copy(s,o,length(s)-o+1)；
val(t,a[1,n],h)；
i:=1；
repeat
inc(i)；
for j:=1 to n-i+1 do a[i,j]:=a[i-1,j+1]-a[i-1,j]；
until b(i) or (i>n)；
if i>n then
begin
writeln(’No’)；
exit；
end；
h:=i；
for i:=n-h+2 to n-h+1+k do a[h,i]:=a[h,i-1]；
for i:=h-1 downto 1 do
for j:=n-i+2 to n-i+1+k do
a[i,j]:=a[i+1,j-1]+a[i,j-1]；
writeln(’Yes’)；
write(a[1,n+1])；
for i:=n+2 to n+k do write(’ ’,a[1,i])；
end.
readln(n,k)；
readln(buf)；
buf:=buf+’ ’；
buf2:=’’；
s:=0；
for i:=1 to length(buf) do
begin
if(buf[i]=’ ’)then
begin
inc(s)；
val(buf2,a[s])；
buf2:=’’；
end
else
buf2:=buf2+buf[i]；
end；
a[]是qword