MATRIX2
!Program name:MATRIX2
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