Exercício soma de matrizes quadráticas

Fazer um algoritmo para somar duas matrizes quadradas (NxN) dadas, N também é dado.
Segue a resolução, já com a linguagem do Fortran



program soma_matrizes
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 elementos da matriz A"
Do i=1, N, 1
Read*, (A(i,j), j=1, N, 1)
Enddo
Print*, "entre com os elementos da matriz B"
Do i=1, N, 1
Read*, (B(i,j), j=1, N, 1)
Enddo
Print*, "soma da matriz 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

Olá galera, vamos começar a se preparar para a segunda prova de ICC.
Na medida do possível, irei atualizando o blog com alguns exercícior resolvidos da lista e em sala de aula.
Podem comentar a vontade.