Algoritmo

Algoritmo "Matrizes-2" var // -- Declarando uma matriz quadrada de dimensão 16 (4x4)
MAT3 : vetor [1..4, 1..4] de inteiro
I,J: inteiro inicio // -- Leitura dos elementos da matriz MAT3 (4 x 4) para I de 1 ate 4 faca para J de 1 ate 4 faca leia (MAT3[I,J]) fimpara fimpara // -- Escrita dos elementos da matriz MAT3 escreval ("-- MATRIZ --") para I de 1 ate 4 faca para J de 1 ate 4 faca escreva (MAT3[I,J]) fimpara escreval fimpara fimalgoritmo

3. Guardar os elementos da diagonal principal de uma matriz quadrada de dimensão 16 (4 x 4)
Algoritmo "DIAGONAL_1" var // -- Declarando uma matriz quadrada de dimensão 16 (4x4)
MAT : vetor [1..4, 1..4] de inteiro
DIAG_PRINC : vetor [1..4] de inteiro
I,J: inteiro inicio // -- Leitura dos elementos da matriz MAT3 (4 x 4) para I de 1 ate 4 faca para J de 1 ate 4 faca leia (MAT[I,J]) fimpara fimpara // -- Escrita dos elementos da matriz lida escreval (" MATRIZ LIDA") para I de 1 ate 4 faca para J de 1 ate 4 faca escreva (MAT[I,J]) fimpara escreval fimpara escreval
// -- Atribuindo ao vetor DIAG_PRINC os elementos da diagonal principal da matriz lida.
// Atenção para isso I = J (índices iguais) para I de 1 ate 4 faca para J de 1 ate 4 faca se I = J entao DIAG_PRINC[I] := MAT[I,J] fimse fimpara fimpara escreval
// Escrevendo o vetor DIAG_PRINC[I] escreva ("Vetor diagonal principal : ") para I de 1 ate 4 faca escreva (DIAG_PRINC[I]) fimpara // *** ATENÇÃO  Outra forma de pegar os elementos da diagonal principal: para I de 1 ate 4 faca DIAG_PRINC[I] := MAT[I,I] fimpara escreval
// Escrevendo o vetor DIAG_PRINC[I] escreva ("Vetor diagonal principal --> ") para I de 1 ate 4 faca escreva (DIAG_PRINC[I]) fimpara escreval
fimalgoritmo