信息库含答案奥德赛.docVIP

信息奥赛题库（2011-4-3） ---【信息奥赛题库】 编制组 打印杨辉三角前10行 标程 program yhsj10; var yh:array[1..10,0..10] of integer; i,j:integer; begin yh[1,1]:=1; for i:=2 to 10 do for j:=1 to i do yh[i,j]:=yh[i-1,j]+yh[i-1,j-1]; for i:= 1to 10do begin for j:=1 to i do write(yh[i,j], ); writeln; end; End. 2.读入10个数，输出偶数项及它们和，输出奇数项及它们的平均数。 （读入10个数输出偶数项及它们和输出奇数项及它们的平均数） 标程 program exe6_1; var i,s,t,n:integer; a:array[1..10] of integer; begin for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if i mod 2 = 0 then begin write(a[i], ); s:=s+a[i]; end; writeln(s); for i:=1 to 10 do if i mod 20 then begin write(a[i], ); t:=t+a[i]; n:=n+1; end; writeln(t/n); end. 3.读入n个数，打印其中的最大数及其位置号 （读入n个数打印其中的最大数及其位置号） 标程 program exe6_2; var i,max,min,t,n:integer; a:array[1..10] of integer; begin for i:=1 to 10 do read(a[i]); max:=a[1]; min:=a[1]; t:=1; n:=1; for i:=2 to 9 do begin if maxa[i] then begin max:=a[i]; t:=I; end; if mina[i] then begin min:=a[i]; n:=I; end; end; writeln(max, ,t); writeln(min, ,n); end. 4.交换a和b的值 标程 program p1_1; var a,b,x:integer; begin read(a,b); x:=a; a:=b; b:=x; writeln(a, ,b); End. Problem 1 : leader2 谁是组长2 问题描述 八中信息组需要选一个组长。信息组一共有n个人，分别用1到n编号，其中m个人参与了投票。得票数过半（票数大于m div 2）的人将被选为组长。 输入数据将告知这m个人分别将票投给了谁，请统计出谁将担任八中信息组的组长。 输入数据 第一行两个数n和m。 第二行有m个数，这些数都是不超过n的正整数，表明这m个人的选择。 输出数据 输出将被选为组长的人。如果没有人的票数过半，请输出-1。 输入样例 7 4 7 7 2 7 输出样例 7 时间限制 各测试点1秒 内存限制 你的程序将被分配32MB的运行空间 数据规模 1=n=maxlongint 1=m=1 000 000 考察内容 查找第k大元素 program leader2; va