j := 1; //i, j 分别表示当前子序列的首尾，并保证其中至多有两个不同整数
while (j <= n) and (a[j] = a[i]) do
inc(j); cur1 := a[i];
cur2 := a[j]; count1 := (1) ; count2 := 1; ans_length := j - i + 1;
while j < n do begin
inc(j);
if a[j] = cur1 then
inc(count1)
else if a[j] = cur2 then
inc(count2) else begin
if a[j - 1] = (2) then
begin
while count2 > 0 do begin
if a[i] = cur1 then
dec(count1) else
dec(count2); inc(i);
end;
cur2 := a[j];
count2 := 1;
end
else begin
while count1 > 0 do begin
if a[i] = cur1 then
(3) else
(4) ; CCF NOIP2013 初赛提高组 Pascal 语言试题第 11 页，共 12 页
//（3 分）
//（3 分）
//（2 分） //（2 分）
inc(i);
end;
(5)
; //（3 分）
count1 := 1; end; end;
if (ans_length < j - i + 1) then begin
ans_length := j - i + 1;
ans_start := i;
ans_end := j;
end;
end;
for i := ans_start to ans_end do
write(a[i], ' ');
end.
CCF NOIP2013 初赛提高组 Pascal 语言试题
第 12 页，共 12 页
NOIP2013 初赛提高组（Pascal语言）试题参考解答
一、单项选择
1 A 2 A 3 B 4 D 5 A 6 B 7 D 8 B 9 D 10 11 12 13 14 15 D C B D B B 二、多项选择
1 AC 三、解答题
１. 0 1 1 1 2. 37/12 求解方法为：
2 AD 3 CD 4 AB 5 ABCD 先将问题转为青蛙随机跳了一步以后的情况，分为5种情况，分别是落在1号、2号、3号、4号、5号荷叶上，于是有 f5=(f1 + 1+f2+ 1+f3+ 1+f4 +1+f5) / 5 ，从而推得 f5=1+(f1+f2+f3+f4)/4。
推而广之，求fn的递推式为： f[1]=1
f[n]=1+(f[1]+f[2]+…+f[n-1])/(n-1) (n>1) 四、阅读程序题
（１）Yes 判定输入的字符串是否是回文串
（２）133 １到1000中是１０或１５的倍数的数的个数 （３）4 最长上升子序列的长度 （４）7 图中最长通路的长度 五、完成程序题
１.(1) n+i-p (2) i+1-p (3) a[i-p] (4) j<=end2 (5) i (6) J-1(或start2-1） ２、(1)j-1 (2) cur1 (3) dec(count1) (4) dec(count2) (5) cur1:=a[j]
CCF NOIP2013 初赛提高组 Pascal 语言试题
第 13 页，共 12 页
NOIP2013初赛提高组Pascal试题及答案
