Question

Мне ответить на вопрос для программирования на фортране. это мой вопрос: «введите 10 одномерных массивов. перепишите элементы массивов построчно в квадратной матрице, расположив их в порядке убывания значений. распечатайте матрицу ».
это моя кодировка, но результат для матрицы (5,4) неверен.

program array_matrix
implicit none
integer, dimension(: ),allocatable : : a,b,c
integer,allocatable: : matrix(: ,: )

integer i,j,temp,n,r,t
print*,'n'
read(*,*) n
allocate(a(n))
print*,'a'
do i=1,n
read(*,*) a(i)
end do
allocate(b(n))
print*,'b'
do i=1,n
read(*,*) b(i)
end do
allocate(c(n+n))
c(1: n)=a
c(n+1: n+n)=b
do i=1,n+n-1
do j=i+1,n+n
if(c(i) temp=c(i)
c(i)=c(j)
c(j)=temp
end if
end do
end do
print*, c

allocate(matrix(5,4))
do r= 1,5
do t= 1,4

matrix(r,t)=c( )
end do
end do
print *, 'matrix='
do r = 1,4
write(*,*) (matrix(r,t), t=1,5)
end do
pause
end program