Matriz Transposta

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "Matriz Transposta"
// Função :
// Autor :
// Data : 27/05/2015
// Seção de Declarações 
var
A, B: vetor [1..3,1..3] de inteiro
I,J: inteiro
inicio
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 escreva("Digite o elemento ", J," da linha ",I," : ")
 leia (A[I,J])
 FIMPARA
 FIMPARA
 PARA I de 1 ate 3 FACA
 PARA J de 1 ate 3 FACA
 B[J,I] <- A[I,J]
 FIMPARA
 FIMPARA
 PARA J de 1 ate 3 FACA
 PARA I de 1 ate 3 FACA
 escreval("A matriz transposta é: ", B[J,I])
 FIMPARA
 FIMPARA
 
fimalgoritmo