第一问答网»论坛 › 中问网 › 问答 › 最大连续子序和问题求算法和pascal代码！ ...

最大连续子序和问题求算法和pascal代码！

11 |

1 | 2010-10-26 14:21:00 | 显示全部楼层 |阅读模式

最大连续子序和：数组a中存放K个整数的序列{N1,N2,…,Nk,},其任意连续子序列可表示为{Ni,Ni+1,…,Nj,},其中1=0)
:=a (f[i-1,1]=0);
:=1;
(f[i-1,1]<0)var ans,n,k:longint; f:array[0..2000,1..2] of longint; a:array[0..2000] of longint;procedure init;var i:longint;begin re

使用道具举报

千问 | 2010-10-26 14:21:00 | 显示全部楼层

算法：贪心，遇到和小于0的就改为0，接着贪心（不过需要注意里面所有的数可能都小于0，所以要特殊处理一下）程序：program asd; var t,tot,n,i,max:longint;
a:array[0..1001]of longint; beginreadln(n);for i:=1 to n do rea

使用道具举报

返回列表发新帖

千问

主题	0 回帖	4882万积分

论坛元老

Rank: 8 Rank: 8

积分: 48824836

回复楼主返回列表

问答

热门排行

最大连续子序和问题 求算法和pascal代码！

最大连续子序和问题求算法和pascal代码！