noip2000-209提高组初赛-完善程序-题目noip2000-2009提高组初赛-完善程序-题目.doc

noip2000-2009提高组初赛-完善程序-题目 PAGE 1 第  PAGE 11 页 2010-10-11 NOIP2009 五．完善程序 (前5空，每空2分，后6空，每空3分，共28分) 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 :=______; for i := 1 to n do begin if tmp + a[i] ans then begin ans := tmp + a[i]; len := i - beg; end else if (______) and (i - beg len) then len := i - beg; if tmp + a[i]______ then begin beg :=______; tmp := 0; end else ______; end; writeln(ans, , len); end. 2. (寻找等差数列) 有一些长度相等的等差数列(数列中每个数都为0~59的整数)，设长度均为L，将等差数列中的所有数打乱顺序放在一起。现在给你这些打乱后的数，问原先，L最大可能为多大？先读入一个数n(1=n=60)，再读入n个数，代表打乱后的数。输出等差数列最大可能长度L。 var hash: array[0..60] of integer; n, x, ans, maxnum, i: integer; function work(now: integer): boolean; var ok: boolean; first, second, delta, i: integer; begin while ((______) and (hash[now]=0)) do inc(now); if now maxnum then begin work := true; exit; end; first := now; for second := first to maxnum do if hash[second] 0 then begin delta :=______; if first + delta *______ maxnum then break; if delta = 0 then ok:=(____________) else begin ok := true; for i := 0 to ans - 1 do ok :=______ and (hash[first+delta*i]0); end; if ok then begin for i := 0 to ans - 1 do dec(hash[first+delta*i]); if work(first) then begin work := true;exit; end; for i := 0 to ans - 1 do inc(hash[first+delta*i]); end; end; work := false; end; begin fillchar(hash, sizeof(hash), 0); read(n); maxnum := 0; for i := 1 to n do begin read(x); inc(hash[x]); if x maxnum then maxnum := x; end; for ans := n downto 1 do if (n mod ans = 0) and______ then begin writeln(ans); break; end; end. NOIP2008 五．完善程序(前6空，每空3分，后5空，每