noip2014普及组初赛试题

第二十届全国青少年信息学奥林匹克联赛初赛（普及组 Pascal语言二小时完成）●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●一．单项选择题（共20题，每题1.5分，共计30分。

每题有且仅有一个正确答案。

）1、以下哪个是面向对象的高级语言（）。

A. 汇编语言B. C++C. FortranD. Basic2、1TB代表的字节数量是（）。

A.2的10次方B. 2的20次方C. 2的30次方D. 2的40次方3、二进制数00100100和00010101的和是。

A.00101000B.001010100C.01000101D.001110014、以下哪一种设备属于输出设备（）A.扫描仪B.键盘C.鼠标D.打印机5、下列对操作系统功能的描述最为完整的是（）A.负责外设与主机之间的信息交换B.负责诊断机器的故障C.控制和管理计算机系统的各种硬件和软件资源的使用D.将源程序编译成目标程序6.CPU、存储器、I/O设备是通过（）连接起来的。

A. 接口B.总线C.控制线D.系统文件7、断电后会丢失数据的存储器是（）。

A.RAMB.ROMC.硬盘D.光盘8、以下哪一种是属于电子邮件收发的协议（）。

A.SMTPB.UDPC.P2PD.FTP9、下列选项中不属于图像格式的是（）A.JPG格式B. TXT格式C.GIF格式D.PNG格式10.链表不具有的特点是（）A．不必事先估计存储空间 B．可随机访问任一元素C．插入删除不需要移动元素 D．所需空间与线性表长度成正比11、下列各无符号十进制整数中，能用八位二进制表示的数中最大的是（）。

A．296 B．133 C．256 D．19912.下列几个32位IP地址中，书写错误的是（）。

A.162.105.130.27B.192.168.0.1C.256.256.129.1D.10.0.0.113.要求以下程序的功能是计算：s=1+1/2+1/3+……+1/10。

NOIP普及组初赛历年试题及答案阅读题篇阅读程序写结果（共4 题，每题8 分，共计32 分）阅读程序题是得分的关键，因为不是让你上机去运行程序，所以要一步步地读程序，记录相关变量值的变化情况。

因为程序的运行结果只有输出语句才有输出，所以只写出输出语句的结果。

有时要找出规律才能写出结果，特别是循环次数多的情况，另外要注意边界值，不能多算一步也不能少算一步。

解决这类问题的关键在于能够分析程序的结构以及程序段的功能。

常见的有列表法、画流程图法等。

完成这类题目的方法和步骤如下：1、从头到尾通读程序，大致把握程序的算法、找出这个题目的即这个程序想干什么。

抓住了它，不仅得出答案变得较容易，而且对自己的结果也会比较有信心。

2、通过给程序分段、理清程序的结构和层次，达到读懂程序的目的。

3、阅读程序中特别注意跟踪主要变量的值的变化，可以用列表的方法，了解变量变化和程序的运行结果，注意发现规律。

所谓列表法，就是将各变量名作为表头，在程序的执行过程中，将各变量值的变化记录在相应变量的下方。

4、按照程序中输出格式的要求，写出运行结果，并带着结果回到程序进行检查。

在阅读程序时，要特别注意过程、函数所完成的子任务以及和主程序之间的参数传递关系。

在阅读程序中，比较好的方法是首先阅读主程序，看其需要调用的过程或函数是什么，最后要求输出变量是什么；其次在阅读程序中，将较长的程序分成几个程序段（特别注意循环结构、判断结构），阅读理解各程序段的功能以及各程序之间的关联。

NOIP2011-1.#include<iostream>using namespace std;int main(){int i,n,m,ans;cin>>n>>m;i=n;ans=0;while(i<=m){//从i=10~20，共循环计数11次ans+=i;//每次循环，ans累加一次i 值i++;}cout<<ans<<endl;//此时ans值应为(10+20)*11/2，即165 return 0;}输入: 10 20输出: 165NOIP2011-2.#include<iostream>#include<string>using namespace std;int main(){string map= "2223334445556667778889999";//数组中元素位置是从0开始计数的string tel;int i;cin>>tel;for(i=0;i<tel.length();i++)if((tel[i]>='0') && (tel[i]<='9') )//如果输入的tel是0~9，直接输出tel值cout<<tel[i];else if( (tel[i]>='A') && (tel[i]<='Z'))cout<<map[tel[i]-'A'];//如果输入的tel是A~Z，则输出一个map数组中对应的元素//输出元素在map数组中位置为“输入字母与A的ASCII码的差值”//如果输入的是其他字符，比如“-”，则不符合循环条件，无输出cout<<endl;return 0;}输入: CCF-NOIP-2011输出: 22366472011NOIP2011-3.#include<iostream>#include<cstring>using namespace std;const int SIZE= 100;int main(){int n,i,sum,x,a[SIZE];cin>>n;memset(a,0,sizeof(a));for(i=1;i<=n;i++){cin>>x;a[x]++;}//循环结束时数组中的值为：a[1]=1，a[2]=2，a[3]=3，a[4]=2，a[5]=1，a[6]=2 i=0;sum=0;while(sum<(n/2+1)){//当sum值大于等于n/2+1，即sum>=6的时候，循环结束i++;sum+=a[i];}cout<<i<<endl;//输出循环结束时i 的值（不是sum的值）return 0;}输入:114 5 6 6 4 3 32 3 2 1输出: 3NOIP2011-4.#include<iostream>using namespace std;int solve(int n,int m){int i,sum;if(m==1) return 1;//递归函数solve(i,m)中m=1时返回函数值为1sum=0;for(i=1;i<n;i++)//递归函数solve(i,m)中i=1时不循环，sum=0sum+= solve(i,m-1);return sum;//可递归求得sum=solve(1,3)+(2,3)+(3,3)+(4,3)+(5,3)+(6,3)}int main(){int n,m;cin>>n>>m;cout<<solve(n,m)<<endl; //输出函数值，即sum值return 0;}输入: 7 4输出: 20NOIP2012-1.#include<iostream> using namespace std; int a, b, c, d, e, ans; int main(){cin>>a>>b>>c;d = a+b;e = b+c;ans = d+e;//ans=a+b+b+ccout<<ans<<endl;return 0;}输入: 1 2 5输出: 10NOIP2012-2.#include<iostream>using namespace std;int n, i, ans;int main(){cin>>n;ans = 0;for (i = 1; i <= n; i++)if (n % i == 0)ans++;//统计1~18中18的因数个数cout<<ans<<endl;return 0;}输入: 18输出: 6NOIP2012-3.#include<iostream>using namespace std;int n, i, j,a[100][100];int solve(int x,int y){int u, v;if(x == n)return a[x][y];//递归边界：当x=5时，solve(5,y)=a[5][y]u= solve(x + 1, y);v= solve(x + 1, y + 1);if(u > v)return a[x][y] + u;elsereturn a[x][y] + v;//用递归最终求得solve(1,1)=a[1][1]+solve(2,2)=2+12=14 }int main(){cin>>n;for(i = 1; i <= n; i++) for (j = 1; j <= i; j++) cin>>a[i][j];cout<<solve(1,1)<<endl; return 0;}输入:52-1 42 -1 -2-1 6 4 03 2 -1 5 8输出: 14NOIP2012-4.#include<iostream>#include<string> using namespace std; int n, ans, i, j;string s;char get(int i){if(i < n)return s[i];elsereturn s[i-n];//i<8时，get(i)返回s[i]；i>=8时，get(i)返回s[i-8]，从第一个开始返回}int main(){cin>>s;n= s.size();ans= 0;for(i = 1; i <= n-1; i++){for (j = 0; j <= n-1; j++)if (get(i+j) < get(ans+j)){ans = i;break;}else if (get(i+j) > get(ans+j))break;}//此循环执行完毕，ans=7for(j = 0; j <= n-1; j++)cout<<get(ans+j);//1,ans+j<8，输出s[7+0]；2,ans+j=8，输出s[8-8]；3,ans+j=9，输出s[9-8]……cout<<endl;return 0;}输入: CBBADADA输出: ACBBADADNOIP2013-1.#include<iostream>using namespace std;int main(){inta, b;cin>>a>>b;cout<<a<<"+"<<b<<"="<<a+b<<endl;return 0;}//输出：3+5=8输入: 3 5输出: 3+5=8NOIP2013-2.#include<iostream>using namespace std;int main(){int a, b, u, i, num;cin>>a>>b>>u;num = 0;for (i = a; i <= b; i++)if ((i % u) == 0)num++;//1-100之间有多少数是15的倍数cout<<num<<endl;return 0;}输入: 1 100 15输出: 6NOIP2013-3.#include<iostream>using namespace std;int main(){const int SIZE = 100;int n, f, i, left, right, middle, a[SIZE]; cin>>n>>f;for (i = 1; i <= n; i++)cin>>a[i];left = 1;right = n;do {middle= (left + right) / 2;if(f <= a[middle])right = middle;elseleft = middle + 1;}while (left < right);// middle=6，17>a[6]，则left=7// middle=9，17<a[9]，则right=9 // middle=8，17<a[8]，则right=8// middle=7，17=a[7]，则right=7 // left=right，直接输出leftcout<<left<<endl;return 0;}输入:12 172 4 6 9 11 15 1718 19 20 21 25 输出: 7NOIP2013-4.#include<iostream>using namespace std;int main(){constint SIZE = 100;intheight[SIZE], num[SIZE], n, ans; cin>>n;for(int i = 0; i < n; i++) {cin>>height[i];num[i] = 1;for (int j = 0; j < i; j++) {if ((height[j] < height[i]) && (num[j] >= num[i]))num[i] = num[j]+1;}}//两两相比，得出num[0], num[1], num[2], num[3], num[4], num[5]ans= 0;for(int i = 0; i < n; i++) {if (num[i] > ans) ans = num[i];}//得出num中最大值，即在数组height中第几位数值最大cout<<ans<<endl;return 0;}输入:62 53 11 12 4输出: 4不懂算法？跟踪变量！列表模拟！遇到递归？画树形图！注意边界！找到规律了？还会流程图？恭喜你，32分到手了！NOIP2014-1.#include <iostream>using namespace std;int main(){int a, b, c, d, ans;cin>> a >> b >> c;d = a - b; //将a-b=-1赋值给d a = d + c; //将d+c=3赋值给a ans = a * b; //ans=a*b=3*3=9 cout<< "Ans = " << ans << endl; return 0;}输入:2 3 4输出: Ans=9NOIP2014-2.#include <iostream>using namespace std;int fun(int n){if (n == 1)return 1; //边界fun(1)=1if (n == 2)return 2; //边界fun(2)=2 return fun(n - 2) - fun(n - 1); } //fun(n)=fun(n-2)-fun(n-1) int main(){int n;cin >> n;cout << fun(n) << endl;//fun(7)=fun(5)-fun(6)=-11 return 0;}输入: 7输出: -11NOIP2014-3.#include <iostream>#include <string>using namespace std;int main(){int i, len;getline(cin, st);len = st.size();for(i = 0; i < len; i++){if (st[i] >= 'a' && st[i] <= 'z')st[i] = st[i] - 'a' + 'A';} //如果字符串st中字母小写，则替换成大写cout<< st << endl;return 0;}输入: Hello, my name is Lostmonkey.输出: HELLO, MY NAME IS LOSTMONKEY.NOIP2014-4.#include <iostream>using namespace std;const int SIZE =100;int main(){int p[SIZE];int n, tot, i, cn;cin>> n;for(i = 1; i <= n; i++)p[i] = 1; //p[1]-p[30]中所有元素赋值1 for(i = 2; i <= n; i++){if (p[i] == 1)tot++; //计数cn = i * 2; //找出2-30中所有2i while (cn <= n) {p[cn] = 0;cn += i; //找出2-30中所有3i}}//对2-30中素数计数，并输出个数cout<< tot << endl;return 0;}输入: 30输出: 10NOIP2015-1.#include <iostream>using namespace std;int main(){int a, b, c;a = 1;b = 2;c = 3;if(a > b) //不符合循环条件，不执行if(a > c)cout << a << ' ';elsecout << b << ' ';cout << c << endl;return 0;}输出: 3NOIP2015-2.#include <iostream>using namespace std;struct point{int x;int y;}; //声明结构体类型pointint main(){int a, b, c;struct EX{int a;int b;point c;}e; //声明结构体类型EXe.a = 1; //结构体变量e中变量ae.b = 2; //结构体变量e中变量be.c.x = e.a + e.b;//结构体变量e中的结构体变量c中的变量x e.c.y = e.a * e.b;//结构体变量e中的结构体变量c中的变量y cout << e.c.x << ','<< e.c.y << endl; return 0;}输出: 3,2NOIP2015-3.#include <iostream>#include <string>using namespace std;int main(){string str;int i;int count;count = 0;getline(cin, str);for(i = 0; i < str.length();i++)if(str[i] >= 'a' &&str[i] <= 'z')count++; //统计字符串中小写字母数量cout << "It has "<< count << " lowercases" << endl; return 0;}输入: NOI2016will be held in Mian Yang.输出: It has 18 lowercasesNOIP2015-4.#include <iostream>#include <string>using namespace std;void fun(char *a, char *b){a = b;(*a)++;} //指针题int main(){char c1, c2, *p1, *p2;c1 = 'A';c2 = 'a';p1 = &c1;p2 = &c2;fun(p1, p2);//p1=p2=&c2，把c2的地址赋值给指针变量p1 //p1++，则有&’a’+1=&’b’, 所以，c2=’b’，cout << c1 << c2<< endl;return 0;}输出: AbNOIP2016-1.#include <iostream>using namespace std;int main(){int max, min, sum, count = 0;int tmp;cin>> tmp;if(tmp == 0)return0; //如果输入的数字是0，程序退出max= min = sum = tmp;count++;while(tmp != 0) {cin>> tmp;if(tmp != 0) {sum += tmp; //求和count++;//计数if(tmp > max)max = tmp; //找出最大值if(tmp < min)min = tmp; //找出最小值}}cout<< max << "," << min << ","<< sum / count << endl; //输出“最大值, 最小值, 平均值”return 0;}输入: 1 2 3 4 5 6 0 7输出: 6,1,3NOIP2016-2.#include <iostream>using namespace std;int main(){int i = 100, x = 0, y = 0;while (i > 0) {i--;x = i % 8;if (x == 1)y++;} //统计1-100中有多少数是“8的倍数+1”cout << y << endl;return 0;}输出: 13NOIP2016-3.#include <iostream>using namespace std;int main(){int a[6] = {1, 2, 3, 4, 5, 6};int pi = 0;int pj = 5;int t , i;while(pi < pj) {t =a[pi];a[pi]= a[pj];a[pj]= t;pi++;pj--;} //把数组a[6]中的数字顺序颠倒过来for(i = 0; i < 6; i++)cout<< a[i] << ",";cout<< endl;return 0;}输出: 6,5,4,3,2,1,NOIP2016-4.#include <iostream>using namespace std;int main(){int i, length1, length2; strings1, s2;s1= "I have a dream.";s2 = "I Have A Dream."; length1 = s1.size();length2 = s2.size();for (i = 0; i < length1; i++)if (s1[i] >= 'a' && s1[i]<= 'z') s1[i] -= 'a' - 'A';//把s1里的小写字母全部换成大写for (i = 0; i < length2; i++)if (s2[i] >= 'a' && s2[i]<= 'z') s2[i] -= 'a' - 'A';//把s2里的小写字母全部换成大写if (s1 == s2)cout << "=" <<endl;else if (s1 > s2)cout << ">" <<endl;elsecout << "<" <<endl;return 0;}输出: =。

NOIP 2014 第二十届全国青少年信息学奥林匹克联赛初赛普及组C++语言试题竞赛时间：2014 年10月11日14:30〜16:30选手注意：1、 试题纸共有 5页，答题纸共有 2页，满分100分。

请在答题纸上作答，写在试题 纸上的一律无效。

2、 不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。

A.负责外设与主机之间的信息交换B.负责诊断机器的故障C.控制和管理计算机系统的各种硬件和软件资源的使用D.将没有程序编译成目标程序6. CPU 、存储器、 A.接口 B.总线 C.控制线7•断电后会丢失数据的存储器是 A.RAM B.ROM C.硬盘8•以下哪一种是属于电子邮件收发的协议12•下列几个32位IP 地址中，书写错误的是 （ ）。

A.162.105.135.27B.192.168.0.1C.256.256.129.1 13•要求以下程序的功能是计算： s=1+1/2+1/3+...+1/10 #in elude <iostream>一、单项选择题（共20题，每题1.51.以下哪个是面向对象的高级语言（A.汇编语言B.C++C.Fortran2. 1TB 代表的字节数是（）。

A.2的10次方 B.2的20次方分，共计 ）。

D.Basic30分；每题有且仅有一个正确选项 ）C.2 的 30 的和是（ A.00101000B.001010100C.010001014•以下哪一种设备属于输出设备（ ）。

A.扫描仪B.键盘C.鼠标D.打印机5•下列对操作系统功能的描述最为完整的是 （ 次方 D.2的40次方)。

D.00111001I/O 设备是通过（）连接起来的。

D.系统文件 （A.SMT PB.UD PC.P2PD.FT P9•下列选项中不属于图像格式的是（A.JPEG 格式B.TXT 格式C.GIF 10.链表不具有的特点是（ A.不必事物估计存储空间 C.插入删除不需要移动元素11•下列各无符号十进制整数中，A.296B.133C.256 ）。

第十八届全国青少年信息学奥林匹克联赛初赛（普及组Pascal语言试题）选手注意：试题纸共有10页，答题纸共有2页，满分100分。

请在答题纸上作答，写在试题纸上一律无效。

不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料一、单项选择题（共20题，每题1.5分，共计30分；每题且仅有一个正确选项）1．计算机如果缺少（），将无法正常启动。

A．内存B．鼠标C．U盘D．摄像头2．（）是一种先进先出的线性表。

A．栈B．队列C．哈希表（散列表）D．二叉树3．目前计算机芯片（集成电路）制造的主要原料是（），它是一种可以在沙子中提炼出的物质。

A．硅B．铜C．锗D．铝4．十六进制数9A在（）进制下是232。

A．四B．八C．十5．（）不属于操作系统。

A．WindowsB．DOSD．十二C．PhotoshopD．NOI Linux6．如果一棵二叉树的中序遍历是BAC，那么它的先序遍历不可能是（）。

A．ABCB．CBAC．ACBD．BAC7．目前个人电脑的（）市场占有率最靠前的厂商包括Intel、AMD等公司。

A．显示器B．CPUC．内存D．鼠标8．使用冒泡排序对序列进行升序排列，每执行一次交换操作系统将会减少1个逆序对，因此序列5，4，3，2，1需要执行（）次操作，才能完成冒泡排序。

A．0B．5C．10D．159．1946年诞生于美国宾夕法尼亚大学的ENIAC属于（）计算机。

A．电子管B．晶体管C．集成电路D．超大规模集成电路10．无论是TCP/IP模型还是OSI模型，都可以视为网络的分层模型，每个网络协议都会被归入某一层中。

如果用现实生活中的例子来比喻这些“层”，以下最恰当的是（）。

A．中国公司的经理与波兰公司的经理交互商业文件B．军队发布命令C．国际会议中，每个人都与他国地位对等的人直接进行会谈D．体育比赛中，每一级比赛的优胜者晋级上一级比赛11．矢量图（VectorImage）图形文件所占的贮存空间比较小，并且无论如何放大、缩小或旋转等都不会失真，是因为它（）。

noip普及组初赛试题及答案1.在8位二进制补码中，表示的数是十进制下的( )。

A。

43 B。

-85 C。

-43 D。

-842.计算机存储数据的基本单位是( )。

A。

bit B。

Byte C。

GB D。

KB3.下列协议中与电子邮件无关的是( )。

A。

POP3 B。

SMTP C。

WTO D。

IMAP4.分辨率为800x600、16位色的位图，存储图像信息所需的空间为( )。

A。

900KB B。

1200KB C。

2400KB D。

2880KB5.计算机应用的最早领域是( )。

A。

数值计算 B。

人工智能 C。

机器人 D。

过程控制6.下列不属于面向对象程序设计语言的是( )。

A。

C B。

C++ C。

Java D。

C#7.NOI的中文意思是( )。

A。

中国信息学联赛 B。

全国青少年信息学奥林匹克竞赛C。

中国青少年信息学奥林匹克竞赛 D。

XXX8.2017年10月1日是星期日，1999年10月1日是( )。

A。

星期三 B。

星期日 C。

星期五 D。

星期二9.甲、乙、丙三位同学选修课程，从4门课程中，甲选修2门，乙、丙各选修3门，则不同的选修方案共有( )种。

A。

36 B。

48 C。

96 D。

19210.设G是有n个结点、m条边(n ≤m)的连通图，必须删去G的( )条边，才能使得G变成一棵树。

A。

n-1 B。

m-n C。

m+n+1 D。

m+1-n11.对于给定的序列{ak}，我们把(i。

j)称为逆序对当且仅当i。

aj。

那么序列1.7.2.3.5.4的逆序对数为()个。

A。

4 B。

5 C。

6 D。

712.表达式a * (b + c) * d的后缀形式是()。

A。

abcd*+* B。

abc+*d* C。

a*bc+*d D。

b+c*a*d13.向一个栈顶指针为hs的链式栈中插入一个指针s指向的结点时，应执行( )。

A。

hs->next=s。

s->next=hs。

hs=s;B。

s->next=hs。

NOIP普及组初赛历年试题及答案求解题篇问题求解：每次共2题，每空5分，共计10分。

每题全部答对得 5 分，没有部分分。

注：答案在文末在NOIP初赛问题求解中，经常会遇到排列组合问题。

这一类问题不仅内容抽象，解法灵活，而且解题过程极易出现“重复”和“遗漏”的错误，这些错误甚至不容易检查出来，所以解题时要注意不断积累经验，总结解题规律。

解答排列组合问题，首先必须认真审题，明确是属于排列问题还是组合问题，或者属于排列与组合的混合问题，其次要抓住问题的本质特征，灵活运用基本原理和公式进行分析解答。

同时还要注意讲究一些策略和技巧，比如采用分类、分步、捆绑等方法，也可以借助表格、方程等工具，使一些看似复杂的问题迎刃而解。

NOIP2011-1. 每份考卷都有一个8位二进制序列号。

当且仅当一个序列号含有偶数个1时，它才是有效的。

例如，0000000、01010011都是有效的序列号，而11111110不是。

那么，有效的序列号共有______个。

NOIP2011-2. 定义字符串的基本操作为: 删除一个字符、插入一个字符和将一个字符修改成另外一个字符这三种操作。

将字符串A变成字符串B的最少操作步数，称为字符串A到字符串B的编辑距离。

字符串“ ABCDEFG ”到字符串“BADECG ”的编辑距离为_______。

NOIP2012-1. 如果平面上任取n 个整点(横纵坐标都是整数) ，其中一定存在两个点，它们连线的中点也是整点，那么n至少是_____。

NOIP2012-2. 在NOI期间，主办单位为了欢迎来自全国各地的选手，举行了盛大的晚宴。

在第十八桌，有5名大陆选手和5名港澳选手共同进膳。

为了增进交流，他们决定相隔就坐，即每个大陆选手左右相邻的都是港澳选手、每个港澳选手左右相邻的都是大陆选手。

那么，这一桌共有_____种不同的就坐方案。

注意：如果在两个方案中，每个选手左边相邻的选手均相同，则视为同一个方案。

NOIP2013-1. 7 个同学围坐一圈，要选2 个不相邻的作为代表，有_____种不同的选法。

活动园地NOIP2014复赛普及组第一题题解原题一、题目简化：求N个正数中有多少个数是这些数中其它两个数的和。

3<=N<=100; 每个正整数M：1<=M<=10000;二、过程分析：试题显然可以分成三个步骤求解：1、先求出N个数中每两个数的和；2、判断这些和中有没有重复，重复的数只留下一个；3、N个数中的每一个数都与这些和比较，若相等些记下，比较完成，即得其解。

三、算法与策略：三个步骤都采用一一列举所有可能的方法，是典型的枚举。

四、程序设计思路：1、一维数组A存放N个数，一维数组B存放两两相加的和；求和、判断重复、比较两数是否相等，都采用两重循环，i 控制外循环，j 控制内循环，k表示数组B的下标变化，ans表示题目答案。

数组a最多100个元素，考虑到用循环，为防止下标越界，可适当把数组开大一些，a[0..101]；数组b中元素数是N个数两个数两两相加的和的个数，由于N最大是100，所以和的个数最多是1+2+3+……99＝4950个，则b[0..5000]五、程序设计：program count;vara:array[0..101] of longint;b:array[0..5000] of longint;n,ans,i,j,k:longint;beginassign(input,'count.in');reset(input);assign(output,'count.out');rewrite(output);readln(n);for i:=1 to n doread(a[i]);fillchar(b,sizeof(b),0);**下面开始步骤1：a中的数两两相加放在b中**k:=1;for i:=1 to n-1 dofor j:=i+1 to n dobeginb[k]:=a[i]+a[j];inc(k);end;**下面开始步骤2：筛掉b中的重复数据：**for i:= 1 to (k-1)-1 do for j:=i+1 to k-1 do begin if b[i]:=b[j] then b[j]:=0; end;**下面开始步骤3：比较a 数组中有多少个数与b 数组中的数相等：** ans:=0; for i:=1 to n dofor j:=1 to k-1 do begin if (a[i]=b[j]) then inc(ans); end;**比较结束，结果已得出，下面输出结果，关闭文件，结束程序** write(ans); close(input) close(output); end.六、时间复杂度分析：三个步骤采用了三个双重循环，每个双重循环运行约N ·∑-=11n i i 次，若N ＝100，则整个程序运行约150万次操作，T （N ）＝0（N 3）理论上讲，还可以忍受。