pascal 数组与字符串(3)

s:=s+a[4,i];

对某一列进行处理。如累加第4列的数据。则固定列号为4。如：for i:=1 to 10 do s:=s+a[i,4];

2、二维数组的输入输出要用双重循环来控制：

for i:=1 to 10 do{————控制行数}

begin

for j:=1 to 5 do read(a[i,j]){————第一行读入5个元素}

readln;{————读入一个换行符}

end;

{————最常用的方法：从键盘读入数据初始化二维数组}

for i:=1 to 10 do

for j:=1 to 5 do a[i,j]:=0;

{————最常用的方法：将二维数组清0}

for i:=1 to 10 do

begin

for j:=1 to 5 do write(a[i,j]:4);

writeln;

end;

{————最常用的输出方法：按矩阵形式输出二维数组的值}

例1：竞赛小组共有20位同学，这学期每位同学共参与了三项比赛，请统计每位同学的平均分。 分析：定义一个20行3列的二维数组来存放这些成绩。定义一个20个元素的一维数组来存放平均分。

program p1;

var

a:array [1..20,1..3] of integer;

b:array [1..20] of real;

i,j:integer;

begin

for i:=1 to 20 do

begin

for j:=1 to 3 do read(a[i,j]);

readln;

end;

{————从键盘上读入20个同学的三次竞赛成绩}

for i:=1 to 20 do b[i]:=0;

{————先将平均分数组清0}

for i:=1 to 20 do

begin

for j:=1 to 3 do b[i]:=b[i]+a[i,j];{————计算总分}

b[i]:=b[i]/3;{————计算平均分}

end;

for i:=1 to 20 do write(b[i]:5:1);

{————输出平均分}