Bom dia! Segue Exercício, porém o que esta de errado na minha estrutura pois minha matriz não fica simétrica. Me ajudem!!!!
Faça um algoritmo para ler uma matriz A de ordem 5x5 de números inteiros e verificar se a matriz é ou não simétrica. Dizemos que uma matriz é simétrica quando todo elemento aij é igual ao elemento aji, para todo i, j ≤ 5
var
simetrica: logico
I: inteiro
J: inteiro
N: inteiro
matrizA : vetor [1..5,1..5] de real
inicio
//Secão de comandos
simetrica <- verdadeiro
para I de 1 ate 5 faca
para J de 1 ate 5 faca
leia(matrizA[I,J])
fimpara
fimpara
escreval("MATRIZ A")
simetrica <- verdadeiro
para i de 1 ate 5 faca
para j de 1 ate 5 faca
escreva(matrizA[I,J]," ")
fimpara
escreval(" ")
fimpara
simetrica <- verdadeiro
para I de 1 ate 5 faca
para J de 1 ate 5 faca
se ( matrizA[I,J] <> matrizA[J,I] ) então
simetrica <- falso
fimse
fimpara
se ( simetrica = verdadeiro ) então
escreval ("A matriz é simétrica!")
senao
escreval("A matriz não é simétrica!")
fimse
fimpara
fimalgoritmo