数组练习题(daan).docVIP

数组练习题 一、选择题 1.下面对数组类型定义描述正确的是（　A　）A)数组的下标类型是有序类型B)一个数组中的各元素类型可以不一样C)数组的下标类型若为整型，则其上界一定要大于下界D)PASCAL语言数组下标的下界要大于等于零 2.设有说明var a:array[a..z] of real;则a数组是（　B　）A)一个存放字符数据的数组　B)一个存放实型元素的数组C)一个具有20个数据的数组　D)能够存放26个元素的数组 2`.var a:array[A..E,1..4,boolean]of real,则a[A,3]是（ B ） A.一个实型的数组元素 B.一个数组，该数组具有两个实型数组元素 C.一个数组，该SHUZU JUYOU 4*2个实型数组元素 D.一个数组，该数组具有5*4*2个实型数组元素 3.设有如下说明：const a=1;b=2;c=3;var x:array[1..5] of integer;且已知x[1]:=1;x[2]:=7;x[3]:=9;x[4]:=1;x[5]:=6;则表达式:(x[b]-1x[5])and(x[c]0)or not(x[a+b](a+b))的值是(B)A)true? B)false? C)0? D)1 4.已有数组说明：var a:array[1..10] of integer;a[1] a[2] .................................a[10] 7 6 4 3 5 2 14 11 9 1 执行语句writlen(a[a[7] div a[3]])后的输出结果是：(A)A)4? B)6? C)3? D)14 5.已知有说明：VAR a:array[1..10]of integer;?????????????? k，i:Integer;下面程序段：For i:=1 T0 10 DO? IF a[i]＞a[k] then k：=i;writeln(a[k]);输出的是(D)A)数组中数的平均值　C)数组中数的最小值B)数组中数的总和　　D)数组中数的最大值 6.如果计算机中4个字节存放一个实型数，若有说明：VAR　A：ARRAY［1..10］　OF　Real;则数组A需占用的存储区域是(D)A)10字节 B)20字节 C)80字节 D)40字节 二、看程序写结果 1. var a:array[-3..3] of integer;　? i,k:integer;begin　k:=0;　for i:=-3 to 3 do　　if　 i0　 then　 a[i]:=k+1　　　else　 a[i]:=k+2;　writeln(a[3]-a[-3])end.output: 1 　 2.var a:array[1..30] of longint;　n,i:integer;begin　readln(n);　a[1]:=0;a[2]:=1;　for i:=3 to n? do a[i]:=a[i-1]+a[i-2];　for i:=1 to n? do write(a[i]:8);　writelnend.输入：10 输出： 0 1 1 2 3 5 8 13 21 34 　 3. var i,s,max:integer;a:array[1..10] of integer;?begin?　for i:=1 to 10 do read(a[i]);?　max:=a[1];s:=a[1];?　for i:=2 to 10 do?　　begin?　　　if s0 then s:=0;?　　　s:=s+a[i];?　　　if smax then max:=s?　　end;?　writeln(‘max=’,max)?end.?输入:-2 13 –1 4 7 8 –1 –18 24 6　 输出:max= 42 4. var a:array[a..z] of integer;　　b:char;begin　repeat　　read(b);　　if (b=a)and(b=z) then　　a[b]:=a[b]+1;　until b=?;　for b:=a to z do　　if a[b]0 then write(b,:,a[b], )end.输入：how many apples are there on the table?输出：a:4 b:1 e:6 h:3 l:2 m:1 n:2 o:2 p:2 r:2 s:1 t:3 w:1 y:1 　 5. var