一维数组练习9.11

《一维数组练习9.11》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、程序阅读：1、Programex1；Vara,b,c,p,q:integer;r:array[0..2]ofinteger;beginread(a,b,c);p:=adivbdivc;q:=b-c+a+p;r[0]:=a*pdivq*q;r[1]:=r[0]*(r[0]-300);if(3*q-pmod3<=r[0])and(r[2]=r[2])thenr[1]:=r[r[0]divpmod2]elser[1]:=qmodp;writeln(r[0]-r[1]);end.输入：10073输出结果：_____________________。2、programchu2；　vari

2、，j，f：integer；　　　　　a：array[1..8]ofinteger；　begin　　fori:=1to8do　　　begin　　　　f:=imod2；　　　　iff=0thena[i]:=0　　　　　　　elsea[i]:=1；　　　　forj:=1toido　　　　　iff=0thena[i]:=a[i]+j　　　　　　　　elsea[i]:=a[i]*j　　　end；　　fori:=1to8do　　　write(a[i]：5)；end.  输出：3、programchu3；vara:array[1..6]of integer;　i,j,p,t:integer;be

3、gin　fori:=1tondoread(a[i]);　forj:=1ton-1do   begin       p:=j;      fori:=jtondo          if a[i]

4、er;beginfori:=1to8doa[i]:=char(i*2+ord('A'));fori:=1to4dobegina[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];end;fori:=1to8dowrite(a[i]);writeln;end.输出：______答案：QOMKIGEC二、编程：1、从键盘输入10个数，将这10个数逆序输出，并求这10个数的和，输出这个和。2、编程实现以下任务：由键盘输入20个数，然后按由大到小的顺序输出。三、竞赛真题：陶陶摘苹果【文件名】: apple.pas/c/cpp【问题描述】    陶陶家的院子里有一棵苹果树

5、，每到秋天树上就会结出10个苹果。苹果成熟的时候，陶陶就会跑去摘苹果。陶陶有个30厘米高的板凳，当她不能直接用手摘到苹果的时候，就会踩到板凳上再试试。   现在已知10个苹果到地面的高度，以及陶陶把手伸直的时候能够达到的最大高度，请帮陶陶算一下她能够摘到的苹果的数目。假设她碰到苹果，苹果就会掉下来。【输入文件】  输入文件apple.in包括两行数据。第一行包含10个100到200之间（包括100和200）的整数（以厘米为单位）分别表示10个苹果到地面的高度，两个相邻的整数之间用一个空格隔开。第二行只包括一个100到120之间（包含100和120）的整数（以厘米为单位），表示陶陶把

6、手伸直的时候能够达到的最大高度。【输出文件】 输出文件apple.out包括一行，这一行只包含一个整数，表示陶陶能够摘到的苹果的数目。【样例输入】100 200 150 140 129 134 167 198 200 111110【样例输出】5