一维数组习题

一维数组【例1】输入50个，请求程序按照输入时的相反顺序打印这50个，即按照输入的相反顺序打印这50个分析：可以定义数组a，存储输入的50个数组，并按相反顺序输出数组a的内容。 来源程序包括：program ex5_1typearr=array1.50of integer； 说明排列型arrvara:arr；i:integer；beginwriteln(Enter 50 integer: )for i:=1 to 50 do read(ai ) 从键盘输入50个整数readln；for i:=50 downto 1 do 反向输出这50个write(ai:10 )结束【例2】输入十个正整数，将其十个按大小顺序排列(将数据按一定顺序排列称为排序，排序的算法较多，在其中选择排序的“简单选择排序”是比较简单的方法)。分析：按十个个数从大到小的顺序排列，排列完毕后，第一个数最大，第二个数较大，因此，第一步按顺序比较第一个数和后面的数，如果发现大于第一个数，则进行交换，比较完毕后，第一个数已经成为最大数。 同样，在步骤2中，依次比较第二个个数和其后的个数，得到下一个较大的数字。 按照这种方式进行比较，最后，将第9个个数与第10个个数进行比较，决定下一个较小的个数。 于是排列了十几个顺序。例如，如果按如下排序五个，则这五个个数分别是8 2 9 10 5。 要按选择顺序排序，请执行下列操作初始数据： 8 2 9 10 5第一次排名： 8 2 9 10 59 2 8 10 510 2 8 9 510 2 8 9 5第二次排序： 10 8 2 9 510 9 2 8 510 9 2 8 5第三次排名： 10九八二五1010年8月25日第四次排序： 10九八五2对于10个，排序进行9次。 来源程序包括：program ex5_2vara :阵列1. 10 of integer；I、j、t:integer；beginwriteln (输入10整合器： )for I :=1to 10重做读取(a I ) 读取10个初始数据readln；for i:=1 to 9 do按次序排序beginfor j:=i 1 to 10 do将第个数与其后的所有数量进行比较if ai0 then write(ai；结束【例5】输入50名学生的某个课程的成绩，打印出低于平均分的学生人数和成绩。【问题分析】要解决这个问题，可以通过读入一个数据加上一个数据求出学生的总分，求出平均分。但是，读入最后一个学生的分数后求平均分，因为必须打印平均分以下的学生，所以50分一个学生的成绩还留着。 然后，比较每个人的平均分，印刷出比平均分高的成绩。 如果使用简单的变量a-1、a-2、a50存储有这些数据，可预测程序长且复杂。 在数学中，考虑用下标变量ai的形式来表示这50个数可以引入下标变量ai。 此类问题的步骤可以描述如下：tot:=0； tot表示总分for i:=1 to 50 do 循环读取每个学生的成绩，并将其加到总分中beginread(ai )；tot:=tot ai；结束；ave:=tot/50； 计算平均点for i:=1 to 50 do到if aiTrunc(sqrt(N ) )打印输出a阵列中剩馀的、未经滤波的各要素的值，在各行中用5个个数表示。用筛选法求素数的过程如下所示(图中下划线作为删除标记)。2、3、4、5、6、7、8、9、11、12、13、15、 98、99、100位置数用筛子筛除可以被234567810121315989921003除的数对能被2、3、4、5、6、7、8、9、11、12、14、98、1003除尽的数进行筛选筛选2345678111213159899可以被整除的数量Program Exam53；const N=100；type xx=1 . N； 自定义子边界类型xx (类型名称) vara :阵列 xx of boolean； I，j: integer；BeginFillchar(a，sizeof(a )，true )；a 1 :=假；for i:=2 to Trunc(sqrt(N) doif aI thenfor j :=2 to N div I doa I * j :=假；t:=0；for I