Matrizes - Criar Um Programa Que Leia Os Elementos De Uma Matriz Inteira 10x10

var

matriz: vetor[1..3,1..3] de inteiro

i,j,soma,prod,n:inteiro

inicio

// Seção de Comandos

para i de 1 ate 3 faca

para j de 1 ate 3 faca

escreva("Digite um Numero para a posição [",i,",",j,"] da Matriz:")

leia(matriz[i,j])

limpatela

fimpara

fimpara

escreval("Matriz Principal")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

escreva (matriz[i,j]:6)

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("01 - Diagonal Principal")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i=j entao

escreva (matriz[i,j]:6)

senao

escreva("---")

fimse

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("02 - Matriz Exceto a Diagonal Principal")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i<>j entao

escreva (matriz[i,j]:6)

senao

escreva("---")

fimse

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("03 - Elementos acima da Diagonal Principal")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i < j entao

escreva (matriz[i,j]:6)

senao

escreva("---")

fimse

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("04 - Soma dos Elementos acima da Diagonal Principal")

soma:=0

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i < j entao

soma:=soma+matriz[i,j]

escreva (soma:6)

senao

escreva("---")

fimse

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("05 - Elementos abaixo da Diagonal Principal")

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i > j entao

escreva (matriz[i,j]:6)

senao

escreva("---")

fimse

fimpara

escreval("")

fimpara

escreval("______________________________________________________")

escreval("06 - Produto dos Elementos acima da Diagonal Principal")

prod:=1

para i de 1 ate 3 faca

para j de 1 ate 3 faca

se i < j entao

prod:=prod*matriz[i,j]

escreva (prod:6)