数组练习卷(1)answer演示教学.docVIP

数组练习卷(1)answer 精品文档 精品文档 收集于网络，如有侵权请联系管理员删除 收集于网络，如有侵权请联系管理员删除 精品文档 收集于网络，如有侵权请联系管理员删除 1、有如下程序： program abc(output); var k:integer;a:array [1..5] of integer; begin for k:=1 to 5 do a[k]:=2*k; for k:=2 to 4 do a[k]:=a[k+1]+a[k-1]; writeln(a[2], ‘ ’,a[4]) end. 该程序运行后，输出的结果是（ 8 26 ） 2、设A为一个一维数组，以下程序运行结果为（ ）。 2 A[1]:=1; 4 For I:=1 to 5 do 6 For j:=I to 5 do A[j]:=a[I]+1; 8 For I:=1 to 5 do Writeln(a[I]) 10 3、以下程序的功能是求5阶方阵中两条对角线上元素的最大值及其位置 program matrix(input,output); var I,j,max,m,n:integer; a:array [1..5,1..5] of integer; begin writeln(‘input A 5*5 matrix:’); for I:=1 to 5 do begin for j:=1 to 5 do read(a[I,j]); readln end; max:=a[1,1]; m:=1;n:=1; for I:=1 to 5 do for j:=1 to 5 do if (I=j)or(I+j=6) then if a[I,j] max then begin max:=a[I,j] ; m:=1;n:=j; end; writeln(‘max=’,max);writeln(‘m=’,m,’n=’:4,n); end. 4、已知变量声明如下： var a:array [1..3,1..3] of integer; I,j:integer; 下面程序段的输出结果是（ ） 1 0 0 for I:=1 to 3 do 0 1 0 for j:=1 to 3 do 0 0 1 a[I,j]:=(I div j)*(j div I); for I:=1 to 3 do begin for j:=1 to 3 do write(a[I,j]:2); writeln; end; 5、下面程序的用冒泡排序法对有10个数据元素的数组从小到大进行排序，数据由键盘输入，并将排序的结果输出。请将程序补充完整。 Program sortbb(input,output); Const n=10; Type Arr=array [1..n] of integer; Var a:arr; Temp,I,j:integer; Beign Writeln(‘input 10 intpger num:’); For I:=1 to n do read(a[I]); Readln; For j:=1 to ( n-1 ) do For I:=1 to ( n-j ) do If a[I]a[I+1] then Begin ( temp:=a[i] ) （ a[i]:=a[i+1] ） （ a[i+1]:=temp ） end; writeln(‘putput: ‘); for I:=1 to n do write(a[I]:4); writeln end. 6、下列程序的功能是：输入100个实数，计算相邻两个数的差，并分10行打印出来。请将程序填写完整。 Program temp(input,output); Type nr=array[1..100] of real; Dr=array[1..99] of real; Var numbers:nr;Differences:dr;Counter:integer; Begin For counter:=1 to 100 do Read( numbers[counter] ) Readln; For counter:=1 to 99 do Diff