Quero pegar essa base e modificar para fazer a questão que ta no titulo pois nao consigo fazer do 0
Algoritmo "semnome"
//
//
// Descrição : Aqui você descreve o que o programa faz! (função)
// Autor(a) : Nome do(a) aluno(a)
// Data atual : 29/11/2019
Var
simetrica: logico
I: inteiro
J: inteiro
N: inteiro
matrizA : vetor [1..5,1..5] de real
Inicio
simetrica <- verdadeiro
para I de 1 ate 5 faca
para J de 1 ate 5 faca
leia(matrizA[I,J])
fimpara
fimpara
escreval("MATRIZ 1")
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