noip2009初赛-最大连续子段和

2009C-4-1（最大连续子段和）给出一个数列（元素个数不多于100），数列元素均为负整数、正整数、0。请找出数列中的一个连续子数列，使得这个子数列中包含的所有元素之和最大，在和最大的前提下还要求该子数列包含的元素个数最多，并输出这个最大和以及该连续子数列中元素的个数。例如数列为4，-5，3，2，4时，输出9和3；数列为1 2 3 -5 0 7 8时，输出16和7。

var
	a:array[1..100] of integer;
	n,i,ans,len,tmp,beg:integer;
begin
	read(n);
	for i:=1 to n do read(a[i]);
	tmp:=0;
	ans:=0;
	len:=0;
	beg:=0;
	for i:=1 to n do
	begin
		if tmp+a[i]>ans then
		begin
			ans:=tmp+a[i];
			len:=i-beg;
		end
		else if (tmp+a[i]=ans) and (i-beg>len) then len:=i-beg;
		if tmp+a[i]<0 then
		begin
			beg:=i;
			tmp:=0;
		end
		else inc(tmp,a[i]);
	end;
	writeln(ans, ' ', len);
end.