宁波市第22届中小学生计算机程序设计竞赛预赛试题（小学组）2007年3月
堆石子）。
请完善该程序。 program xx07_6; const maxn=20; var n,i,j:longint;
total,half,sum,max:longint; a:array[1..maxn] of longint; b:array[0..maxn]of 0..1; begin readln(n);
total:=0;
for i:=1 to n do begin read(a[i]);
total:=total+a[i]; end;
half:=total div 2; max:=0;
for i:=1 to n do b[i]:=0; i:=n;
while i>0 do begin sum:=0;
for j:=1 to n do
sum:=⑤________________; if ⑥______________________ then max:=sum;
i:=n;
while (i>0) and (b[i]=1) do i:=⑦____________; if i>0 then begin
b[i]:=⑧_________; for j:=i+1 to n do b[j]:=0; end;
end;
writeln(total-max-max); end.
第6页 共8页
宁波市第22届中小学生计算机程序设计竞赛预赛试题（小学组）2007年3月
宁波市第22届中小学生计算机程序设计竞赛
预赛答卷（小学组）
（考试时间120分钟，满分100分）
●●所有提交的答案都以写在答卷纸上的为准，写在试卷上的一律无效●●
学校 姓名 得分 一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题2分，共40分） 题号 答案 题号 答案 1 11 2 12 3 13 4 14 5 15 16 17 18 19 20 6 7 8 9 10 二、阅读pascal程序并写出运行结果（每题6分，共18分）
第1题：请写出程序运行后变量sum的值（6分）。sum的值为：_______________
第2题：请写出程序运行后变量ok的值（每空3分，共6分）
①输入：123，ok的值为：_____________ ②输入：121，ok的值为：_____________
第3题：请写出程序运行后变量sum的值（6分）。sum的值为：____________
三、简答题（第1题6分，第2题8分，共14分） 第1题（每小题3分，共6分）：
（1） （2）
第2题（每小题4分，共8分）：
（1） （2）
四、完善程序（第1题12分，第2题16分，共28分） 第1题：（每空3分，共12分）
①______________________ ②_______________________
③______________________ ④_______________________
第2题：（每空4分，共16分）
⑤______________________ ⑥_______________________
⑦______________________ ⑧_______________________
第7页 共8页
宁波市第22届中小学生计算机程序设计竞赛预赛试题（小学组）2007年3月
宁波市第22届中小学生计算机程序设计初赛试题答题卷
(小学组)
学校 姓名 准考证号
一、选择题(每小题2分，共40分)
1 B 2 A 3 C 4 B 5 D 6 C
7 A 8 B 9 A 10 11 12 13 D C B C 14 15 16 17 18 19 20 B A A B D C B 二、阅读程序，并写出程序的正确运行结果(每空6分，共30分)
1、程序运行结果： sum=333 2、程序运行结果： 输入123 输出：FALSE
输入121 输出：TRUE
3、程序运行结果： sum=385 三、 1、8条航线 2种方案
2、（1）4、6、7、9根 （2）除12，18根外
四、程序填空(每空5分，共30分)
1、 ① sum:=0 ② k mod i=0 ③ 1 ④ 0 2、⑤ sum+a[j]*b[j]
⑥ (sum<=half) and (sum>max) ⑦ i-1 ⑧ 1
第8页 共8页
宁波市第22届中小学生计算机程序设计竞赛
