Soma de 2 Matrizes

Program Matriz_3

Integer N, A(10,10), B(10,10), S(10,10), i, j

Print*, "ENTRE COM O VALOR DE N"

Read*, N

PRINT*, "ENTRE COM OS VALORES DE A"

do i=1,N,1

Read*, (A(i,j), j=1,N,1)

enddo

PRINT*, "ENTRE COM OS VALORES DE B"

do i=1,N,1

Read*, (B(i,j),j=1,N,1)

enddo

PRINT*, "A SOMA DE A+B"

do i=1,N,1

   do j=1,N,1

   S(i,j)=A(i,j)+B(i,j)

   enddo

enddo

do i=1,N,1

Print*,(S(i,j), j=1,N,1)

enddo

end