一维数组
【例1】输入50个数，要求程序按输入时的逆序把这50个数打印出来；也就是说，请你按输入相反顺序打印这50个数
分析：我们可定义一个数组a用以存放输入的50个数，然后将数组a内容逆序输出，源程序如下
program ex5_1;
type
arr=array[1..50]of integer; {说明一数组类型arr}
var
a:arr;
i:integer;
begin
writeln('Enter 50 integer:');
for i:=1 to 50 do read(a[i]);{从键盘上输入50个整数}
readln;
for i:=50 downto 1 do {逆序输出这50个数}
write(a[i]:10);
end.
【例2】输入十个正整数，把这十个数按由大到小的顺序排列（将数据按一定顺序排列称为排序，排序的算法有很多，其中选择排序中的―简单选择排序‖是一种较简单的方法）
分析：要把十个数按从大到小顺序排列，则排完后，第一个数最大，第二个数次大，……；因此，我们第一步可将第一个数与其后的各个数依次比较，若发现，比它大的，则与之交换，比较结束后，则第一个数已是最大的数。同理，第二步，将第二个数与其后各个数再依次比较，又可得出次大的数。如此方法进行比较，最后一次，将第九个数与第十个数比较，以决定次小的数。于是十个数的顺序排列结束。
例如下面对5个进行排序，这个五个数分别为829105。按选择排序方法，过程如下：
初始数据：82910 5
第一轮排序：82910 5
92810 5
10289 5
10289 5
第二轮排序：10829 5
10928 5
10928 5
第三轮排序：10982 5
10982 5
第四轮排序：10985 2
对于十个数，则排序要进行9次。源程序如下：
program ex5_2;
var
a:array[1..10]of integer;
i,j,t:integer;
begin
writeln('Input 10 integers:');
for i:=1 to 10 do read(a[i]);｛读入10个初始数据｝
readln;
for i:=1 to 9 do｛进行9次排序｝
begin
for j:=i+1 to 10 do｛将第i个数与其后所有数比较｝
if a[i]begin
t:=a[i];a[i]:=a[j];a[j]:=t;
end;
write(a[i]:5);
end;
end.
【例3】从键盘输入10个数，将这10个数逆序输入，并求这10个数的和，输出这个和。
program p1;
var
a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=10 downto 1 do write(a[i],' ');
writeln;
s:=0;
for i:=1 to 10 do s:=s+a[i];
writeln('s=',s);
end.
【例4】用筛法求100以内的素数（质数）。
分析：素数是除了1和它本身以外没有其它约数的数。用筛法求素数的方法是：用质数筛去合数：从第一个素数2开始，把它的倍数去掉；这样2以后的第一个非0数就一定也是素数，把它的倍数也删了……重复这个删数过程，直到在所找到的素数后再也找不到一个非0数。把所有非0数输出。
program p2;
var
a:array [1..100] of integer;
i,j,k:integer;
begin
for i:=1 to 100 do a[i]:=i;
a[1]:=0;i:=2;
while i<=100 do
begin
k:=i;
while k<=100 do
begin
k:=k+i;
a[k]:=0;
end;
{————上面将所有a[i]的倍数清0}
i:=i+1;
while a[i]=0 do i:=i+1;
{————查找接下来的第一个非0数}
end;
for i:=1 to 100 do if a[i]<>0 then write(a[i],' ');
end.
【例5】输入50个学生的某门课程的成绩，打印出低于平均分的同学号数与成绩。
【问题分析】
在解决这个问题时，虽然可以通过读入一个数就累加一个数的办法来求学生的总分，进而求出平均分。但因为只有读入最后一个学生的分数以后才能求得平均分，且要打印出低于平均分的同学，故必须把50 个学生的成绩都保留下来，然后逐个和平均分比较，把高于平均分的成绩打印出来。如果，用简单变量a1，a2,…，a50 存放这些数据，可想而知程序要很长且繁。要想如数学中使用下标变量ai形式表示这50 个数，则可以引入下标变量a[i]。这样问题的程序可写为：
tot:=0; {tot表示总分}
for i:=1 to 50 do ｛循环读入每一个学生的成绩，并累加它到总分｝
begin
read(a[i]);
tot:=tot+a[i];
end;
ave:=tot/50; ｛计算平均分｝
for i:=1 to 50 do
if a[i]而要在程序中使用下标变量，则必须先说明这些下标变量的整体―数组，即数组是若干个同名（如上
面的下标变量的名字都为a）下标变量的集合。
【例6】将a数组中第一个元素移到最后数组末尾,其余数据依次往前平移一个位置。
【问题分析】
为完成题目所要求的操作，其算法应该包括以下几个主要步骤：
①把第一个元素的值取出入在一个临时单元temp中；
