Outro visualg matris oposta olha ai pf

[ALLAN26BR]

n consigo fazer matriz oposta olha o que eu conseguir pf ajuda rápido 

var
matr : vetor[1..3,1..4] de inteiro
linha, coluna, soma, matrizoposta  : inteiro
inicio
para linha de 1 ate 3 faca
   para coluna de 1 ate 4 faca
      escreva("informe o valor para a posiçao[", linha,",",coluna,"]:" )
      leia(matr[linha, coluna])
   fimpara
fimpara

escreval("--------------------------------------------------")
escreval("valores cadastrados:")
para linha de 1 ate 3 faca
   para coluna de 1 ate 4 faca
      escreva (matr[linha,coluna])
   fimpara

   escreval (" ")

fimpara
escreval  ("----------------------------------------------")
//      (" superior esquerdo: ", mat(1,4] )
escreval ("valor canto superior direito: ", matr [1,4])
//       ("inferior direito : ", mat [3,2])
escreval (" valor cant0 inferior esquerdo :",matr[3,1])

soma <- matr[1,1]+matr[1,2]+matr[1,3]+matr[1,4]+matr[2,1]+matr[2,2]+matr[2,3]+matr[2,4]+matr[3,1]+matr[3,2]+matr[3,3]+matr[3,4]

escreval (" a soma de todos os números é:", soma)

escreva("----------------------------------------------")
//      ("matrizoposta ")

escreva("----------------------------------------------")
escreval ("matriz oposta: ")
para linha de 1 ate 3 faca
   para coluna de 1 ate 4 faca
      (matrizoposta[linha,coluna]) <- (matr[linha,coluna] * -1)
   fimpara
fimpara

fimalgoritmo

[devair1010]

@ALLAN26BR     para postar seu código é melhor  o botão   <>   que está lá na barra de ferramentas de postar , pois senão seu código fica faltando alguns caracteres ,   e seu código está bom , faltou apenas transformar a matriz em matriz oposta , então seu código pode ser assim  :

Algoritmo "matriz oposta"
var
  matriz        : vetor[1..3,1..4] de inteiro
  matriz_oposta : vetor[1..3,1..4] de inteiro
  linha,coluna, soma, matrizoposta  : inteiro
inicio
  para linha de 1 ate 3 faca
    para coluna de 1 ate 4 faca
      matriz[linha,coluna] := randi (100)+(-50)
    fimpara
  fimpara
  escreval("--------------------------------------------------")
  escreval("valores cadastrados:")
  para linha de 1 ate 3 faca
    para coluna de 1 ate 4 faca
      escreva(matriz[linha,coluna])
      soma := soma + matriz[linha,coluna]
    fimpara
    escreval(" ")
  fimpara
  escreval("----------------------------------------------")
  escreval("Valor Canto Superior Direito ----:",matriz[1,4])
  escreval("Valor Canto Inferior Esquerdo ---:",matriz[3,1])
  escreval("A Soma De Todos Os Números é ----:",soma       )
  escreval("----------------------------------------------")
  escreval("----------------------------------------------")
  escreval("matriz oposta:")
  para linha de 1 ate 3 faca
    para coluna de 1 ate 4 faca
      matriz_oposta[linha,coluna] := matriz[linha,coluna] * -1
      escreva(matriz_oposta[linha,coluna]," ")
    fimpara
    escreval
  fimpara
fimalgoritmo