NOIP數(shù)組練習(xí)題

1、數(shù)組練習(xí)題一、選擇題 1.下面對(duì)數(shù)組類(lèi)型定義描述正確的是（）A)數(shù)組的下標(biāo)類(lèi)型是有序類(lèi)型B)一個(gè)數(shù)組中的各元素類(lèi)型可以不一樣C)數(shù)組的下標(biāo)類(lèi)型若為整型，則其上界一定要大于下界D)PASCAL語(yǔ)言數(shù)組下標(biāo)的下界要大于等于零2.設(shè)有說(shuō)明var a:arraya.z of real;則a數(shù)組是（）A)一個(gè)存放字符數(shù)據(jù)的數(shù)組B)一個(gè)存放實(shí)型元素的數(shù)組C)一個(gè)具有20個(gè)數(shù)據(jù)的數(shù)組D)能夠存放26個(gè)元素的數(shù)組3.設(shè)有如下說(shuō)明：const a=1;b=2;c=3;var x:array1.5 of integer;且已知x1:=1;x2:=7;x3:=9;x4:=1;x5:=6;則表達(dá)式:(xb-1x5)a

2、nd(xc0)or not(xa+b(a+b)的值是:A)true B)false C)0 D)14.已有數(shù)組說(shuō)明：var a:array1.10 of integer;a1 a2 .a10 764352141191執(zhí)行語(yǔ)句writlen(aa7 div a3)后的輸出結(jié)果是：A)4 B)6 C)3 D)145.已知有說(shuō)明：VAR a:array1.10of integer; k，i:Integer;下面程序段：For i:=1 T0 10 DO IF aiak then k：=i;writeln(ak);輸出的是A)數(shù)組中數(shù)的平均值C)數(shù)組中數(shù)的最小值B)數(shù)組中數(shù)的總和D)數(shù)組中數(shù)的最大值6

3、.如果計(jì)算機(jī)中4個(gè)字節(jié)存放一個(gè)實(shí)型數(shù)，若有說(shuō)明：VARA：ARRAY1.10OFReal;則數(shù)組A需占用的存儲(chǔ)區(qū)域是A)10字節(jié) B)20字節(jié) C)80字節(jié) D)40字節(jié)二、看程序?qū)懡Y(jié)果1.var a:array-3.3 of integer; i,k:integer;begink:=0;for i:=-3 to 3 doif i0 then ai:=k+1else ai:=k+2;writeln(a3-a-3)end.output: 2.var a:array1.30 of longint;n,i:integer;beginreadln(n);a1:=0;a2:=1;for i:=3 to

4、n do ai:=ai-1+ai-2;for i:=1 to n do write(ai:8);writelnend.輸入：10 輸出： 3. var i,s,max:integer;a:array1.10 of integer;beginfor i:=1 to 10 do read(ai);max:=a1;s:=a1;for i:=2 to 10 dobeginif smax then max:=send;writeln(max=,max)end.輸入:-2 13 1 4 7 8 1 18 24 6 輸出:max= 4.var a:arraya.z of integer;b:char;beg

5、inrepeatread(b);if (b=a)and(b=z) thenab:=ab+1;until b=?;for b:=a to z doif ab0 then write(b,:,ab, )end.輸入：how many apples are there on the table?輸出：5.var a:array1.10 of integer;i,j,temp:integer;beginfor i:=1 to 10 do read(ai);for i:=1 to 9 dofor j:=i+1 to 10 doif ai=k dobeginaj:=n mod k;n:=n div k;j

6、:=j+1end;aj:=n;write(n,k,:);for i:=j downto 0 do write(ai:2);writelnend.輸入：12883輸出：三、填空題：請(qǐng)將每空的正確答案寫(xiě)在橫線上下面的程序從鍵盤(pán)接收任意6個(gè)數(shù)放入數(shù)組A中，假設(shè)這6個(gè)數(shù)為：8 1 4 2 5 6 ，則要輸出一個(gè)具有如下內(nèi)容的方陣。8 1 4 2 5 66 8 1 4 2 5 5 6 8 1 4 2 2 5 6 8 1 44 2 5 6 8 11 4 2 5 6 8var a：array1.6 of integer;i，j，k：integer;beginfor i：=1 to 6 doread（_）;f

7、or i:=1 to 6 dobeginif i=1 then k:=1else k:=_;for j:=1 to_dobeginwrite(ak:2);if k=6 then k:=1else k:=_end;writelnendend.下面的程序?qū)個(gè)學(xué)生的英文成績(jī)從鍵盤(pán)輸入，按059分、6069分、7079分、8089分和90100分分組統(tǒng)計(jì)人數(shù)。const n=20;var i，k：integer; s：array1.5of integer; a：arrayl.nof integer;begin for i:=1 to _ do si:=0; for i:=1 to _ do begi

8、n _; if ai=90 then k:=1 else if ai=80 then k:=2 else if ai=70 then k:=3 else if ai=60 then k:=4 else k:=5; sk:=_ end; for i:=1 to 5 do write(ai:4); writelnend.四、編寫(xiě)程序 1.隨機(jī)產(chǎn)生20個(gè)100以內(nèi)的數(shù)，輸出；按從小到大的順序排序，輸出。2.判斷一字符串是否是回文數(shù)，如121、12321、ABA等(字符串輸入時(shí)以.結(jié)束)。如輸入：12321.輸出：yes3.圍繞著山頂有10個(gè)洞，一只兔子和一只狐貍住在各自的洞里，狐貍總想吃掉兔子，一天兔子對(duì)狐貍說(shuō)，你想吃我有一個(gè)條件，你先把洞編號(hào)1到10，你從第10洞出發(fā)，先到第1號(hào)洞找我，第二次隔一個(gè)洞找我，第三次隔兩個(gè)洞找我，以后依次類(lèi)推，次數(shù)不限，若能找到我你就可以飽餐一頓，在沒(méi)找到我之前不能停止，狐貍一想只有10個(gè)洞，尋找的次數(shù)又不限，哪有找不到的道理，就答應(yīng)了條件，結(jié)果狐貍跑得昏了過(guò)去也沒(méi)找到兔子，請(qǐng)問(wèn)兔子躲在哪個(gè)