作业帮 > 综合 > 作业

pascal语言:输入一个三行四列的数据区(矩阵),变成四行三列的数据区(矩阵)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 19:14:55
pascal语言:输入一个三行四列的数据区(矩阵),变成四行三列的数据区(矩阵)
问一下:对于数据的顺序有没有什么要求?
For Example:
Input:
        1 2 3 4
        5 6 7 8
        9 0 1 2
Output:
        1 5 9
        2 6 0
        3 7 1
        4 8 2
是这样吗?
代码如下:
var i,j:integer;
      a:array[1..3,1..4]of integer;
begin
  for i:=1 to 3 do
  begin
   for j:=1 to 4 do
    read(a[i,j]);
   readln;
  end;
  for i:=1 to 4 do
  begin
    for j:=1 to 3 do
     write(a[j,i],' ');
    writeln;
  end;
  readln;
end.