信息奥赛竞赛题库含答案.docx
《信息奥赛竞赛题库含答案.docx》由会员分享,可在线阅读,更多相关《信息奥赛竞赛题库含答案.docx(28页珍藏版)》请在优知文库上搜索。
1、信息奥赛题库-【信息奥赛题库】编制组打印杨辉三角前10行标程programyhsj10;varyh:array1.10,0.10ofinteger;i,j:integer;beginyhl,l:=l;fori:=2to10doforj:=ltoidoyhij:=yhi-l,j+yhi-l,j-l;fori:=ItoIOdobeginforj:=ltoidowrite(yhi,j;,);writein;end;End.2 .读入10个数,输出偶数项及它们和,输出奇数项及它们的平均数。(读入10个数输出偶数项及它们和输出奇数项及它们的平均数)标程programexe6_l;vari,s,t,n:i
2、nteger;a:array1.10ofinteger;beginfori:=lto10doread(ai);fbri:=ltoIOdoifimod2=0thenbeginwrite(ai;);s:=s+ai;end;writeln(s);fbri:=ltoIOdoifimod20thenbeginwrite(ai;);tz=t+ai;n:=n+l;end;writeln(tn);end.3 .读入n个数,打印其中的最大数及其位置号(读入n个数打印其中的最大数及其位置号)标程programexe6_2;VaMmaX,min,t,n:integer;a:array1.10ofinteger;be
3、ginfori:=lto10doread(ai);max:=al;min:=al;t:=l;n:=l;fori:=2to9dobeginifmaaithenbeginmin:=ai;n:=l;end;end;writeln(maxjzt);writeln(min/,n);end.4 .交换a和b的值标程programpl_l;varazb/X:integer;beginread(azb);x:=a;a:=b;b:=x;writeln(a,b);End.Problem1:IeaderZ谁是组长2问题描述八中信息组需要选一个组长。信息组一共有n个人,分别用1到n编号,其中m个人参与了投票。得票数过
4、半(票数大于mdiv2)的人将被选为组长。输入数据将告知这m个人分别将票投给了谁,请统计出谁将担任八中信息组的组长。输入数据第一行两个数n和m。第二行有m个数,这些数都是不超过n的正整数,表明这m个人的选择。输出数据输出将被选为组长的人。如果没有人的票数过半,请输出-1。输入样例Q47727输出样例7时间限制各测试点1秒内存限制你的程序将被分配32MB的运行空间数据规模l=n=maxlongintl=m=l000000考察内容查找第k大元素programleader2;vara:array1.1000000ofIongint;n,m:Iongint;procedurereadp;vari:Io
5、ngint;beginreadln(n,m);fori:=1tomdoread(ai);end;procedureswap(vartlzt2:Iongint);vart3:Iongint;begint3:=tl;tl:=t2;t2:=t3;end;functionfind(1,r,k:Iongint):Iongint;vari,j,mid:Iongint;beginifl=rthenexit(a1);i:=1;j:=r;mid:=a(ij)div2;repeatwhileaimiddodec(j);ifij;if(1=j)and(k=j)thenexit(find(1,jzk);if(i=i)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 信息 竞赛 题库 答案
