信息奥赛竞赛题库含答案.pdfVIP

信息奥赛题库

---【信息奥赛题库】编制组

打印杨辉三角前10行

标程

programyhsj10;

varyh:array[l..l0,0..10]ofinteger;

i,j:integer;

begin

yh[i,i]：=i;

fori:=2to10do

forj:=ltoido

yh[ij]:=yh[i-lj]+yh[i-lj-l];

fori:=toOdo

begin

forj:=ltoido

write（yh[ij]；）;

writeln;

end;

End.

2.读入10个数，输出数项及它们和，输出奇数项及它们的平均数。读（入10个

数输出数项及它们和输出奇数项及它们的平均数）

标程

programexe6_l;

vari,s,t,n:integer;

a:array[..10]ofinteger;

begin

fori:=lto10doread（a[i]）;

fori:=lto10do

ifimod2=0then

begin

write（alij；）;

s:=s+a（i];

end;

write!n（s）;

fori:=lto10do

ifimod20then

begin

write（alij；）;

t:=t+a（i];

n:=n+l;

end;

writeln（t/n）;

end.

3.读入n个数，打印其中的最大数及其位置号读（入n个数打印其中的最大数及其

位置号）

标程

programexe6_2;

varmax,min,t,n:integer;

a:array[1..10]ofinteger;

begin

fori:=lto10doread(a[i]);

max:=a[l];

min:=a[l];

t:=l;

n:=l;

fori:=2to9do

begin

ifmaxa[i]thenbegin

max:=a[i];

t:=l;

end;

ifmina[i]thenbegin

min:=a[i];

n:=l;

end;

end;

writeln(max/\t);

writeln(minn);

end.

4.交换a和b的值

标程

programpl_l;

varabx:integer;

begin

read(ab);

x:=a;

a:=b;

b:=x;

writeln(a/\b);

End.

Problem1:Ieader2

谁是组长2

问题描述

八中信息组需要选一个组长。信息组一共有n个人，分别1到n编号，其中m个人

参与了投票。得票数过半（票数大于mdiv2）的人将被选为组长。

输入数据将告知这m个人分别将票投给了谁，请统计出谁将担任八中信息组的组长0

输入数据

第一行两个数n和m。

第二行有m个数，这些数都是不超过n的正整数，表明这m个人的选择。

输出数据

输出将被选为组长的人。如果没有人的票数过半，请谕出-1。

输入样例

74

7727

输出样例

|

时间限制

各测试点1秒

内存限制

你的程序将被分配32MB的运行空间

数据规模

l=n=maxlongint

l=m=l000000

考察内容

查找第k大元素

programleader2;

var

a:array[1..1000000]oflongint;

n,m:longint;

procedurereadp;

var

i:longint;

begin

readln(n,m);

fori:=1tomdo

redd(a[i]);

end;

procedureswap(vartlt2:lo