用fortran编写： 输入一个5行3列整数矩阵，将该矩阵的...12

发布网友 发布时间：2024-02-27 23:21

我来回答

共1个回答

热心网友 时间：2024-08-16 22:10

参考代码

      program test
      implicit none
      integer :: arr(5,3), arr_sum(5)
      integer :: i,j,itmp

      print*, '输入一个5行3列整数矩阵'
      do i = 1,5
          read(*,*) arr(i,1:3)
          arr_sum(i) = sum(arr(i,1:3))
      end do
       
      print*, '输入的矩阵及每一行的和为'
      do i = 1,5
          print*, arr(i,1:3), 'sum = ',arr_sum(i)
      end do

      do i = 1,4
          do j = i+1,5
              if(arr_sum(i) < arr_sum(j)) then
                  itmp = arr_sum(i)
                  arr_sum(i) = arr_sum(j)
                  arr_sum(j) = itmp
              end if
          end do
      end do

      print*, '每一行和的排序结果为',arr_sum

      stop
      end program

运行结果

输入

 输入一个5行3列整数矩阵
1 2 3
2 3 4
0 1 2
1 1 1
2 2 2

输出

 输入的矩阵及每一行的和为
           1           2           3 sum =            6
           2           3           4 sum =            9
           0           1           2 sum =            3
           1           1           1 sum =            3
           2           2           2 sum =            6
 每一行和的排序结果为           9           6           6           3           3