nt; x: array[1..MAXN] of longint; begin read(n, m); for i :=1 ton do read(x[i]); lbound := 0; rbound := m; while (1) do begin mid := (lbound + rbound) div 2; (2) ; for i :=1 ton do if (3) then (4) ; if count >n div 2 then lbound := mid +1 else (5) ; end; writeln(rbound); end. CCF NOIP201 5 初赛普及组 Pascal 语言试题第8页共8页答卷部分一. 选择一个正确答案代码( A/B/C/D ), 填入每题的括号内( 每题 1.5 分, 多选无分,共 30分) 题号 123456789 10 选择 DCCAADABBA 题号 11 12 13 14 15 16 17 18 19 20 选择 DBADBDBADA 二.问题解答(每题 5 分,共 10 分) 1.答:92.答: 1008 三. 阅读程序,并写出程序的正确运行结果:(每题 8 分,共 32 分) (1) 程序的运行结果是:3 (2) 程序的运行结果是: 3,2 (3) 程序的运行结果是: It has 18 lowercases (4) 程序的运行结果是: Ab 四. 根据题意, 将程序补充完整(共 28分) 1. 2. 1) lbound < rbound 2) count :=0 3) x[i] > mid 4) inc(count) 5) rbound := mid 1) offset :=42) (dayNum[i] + offset) mod 7 3) dayNum[m] 4) i5) (offset + i) mod 7