DYNAMICARRAY
!Program name: DYNAMICARRAY
!
Order n of the matrix A and its matrix elements
Integer :: n,i,j
Integer,
dimension(:,:), allocatable :: A
Print *, 'Enter the
dimension, n, of the square matrix A: '
Read *, n
Allocate ( A(n,n) )
Do i=1,n
Do j=1,n
Print *, 'A(',i,',',j,')= '
Read *, A(i,j)
End do
End do
Do i=1,n
Do j=1,n
Print *, 'A(',i,',',j,')= ', A(i,j)
End do
End do
Deallocate (A)
stop
Comentários
Postar um comentário