矩阵每一列的最大数fortran

矩阵每一列的最大数fortran

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息