作业帮 > 综合 > 作业

编程题 要把3个for循环改成1个for循环

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/07/10 23:50:50
编程题 要把3个for循环改成1个for循环
竞赛小组共有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);
{————输出平均分}
writeln;
end.
编程题 要把3个for循环改成1个for循环
这种语言 没学过
定义二维数组 array[20][4]
for语句i
{读入array[i][0] array[i][1] array[i][2]
array[i][4]=(array[i][0]+array[i][1]+array[i][2])/3
输出array[i][4]}
再问: 是用pascal语言