Henrique

 Matriz: Pesquisa de elemento por linha e coluna

algoritmo "pesquisa de matriz"
// Autor : Henrique de Amorim
// Data : 02/12/2013
// Seção de Declarações 
var

mat: vetor[1..3,1..4] de real
i,j: inteiro
inicio
// Seção de Comandos
para i de 1 ate 3 faca
     para j de 1 ate 4 faca
          escreval("DIGITE UM NUMERO: ")
          leia(mat[i,j])
     fimpara
fimpara
escreva("DIGITE O NUMERO DA LINHA DESEJADA (1 ATE 3): ")
leia(i)
escreva("DIGITE O NUMERO DA LINHA DESEJADA (1 ATE 4): ")
leia(j)
escreval("O ELEMENTO DA MATRIZ PROCURADO É ",mat[i,j])
fimalgoritmo


Soma de elementos de uma linha na matriz

algoritmo "Soma entre vetores"

// Autor :  Henrique de Amorim
// Data : 02/12/2013
// Seção de Declarações 
var

mat:vetor[1..4,1..3] de real
soma: real
i,j,linha:inteiro
inicio
// Seção de Comandos
para i de 1 ate 4 faca
     para j de 1 ate 3 faca
          escreva ("DIGITE UM NUMERO: ")
          leia(mat[i,j])
     fimpara
fimpara
escreva ("ESCOLHA UMA LINHA: ")
leia(linha)
para j de 1 ate 3 faca
     soma<-soma+mat[linha,j]
fimpara
escreval("A SOMA DOS ELEMENTOS DA LINHA ",linha," E DE ",soma)
fimalgoritmo

Soma da Diagonal de uma matriz
algoritmo "Soma da diagonal"

// Autor : Henrique

// Data : 02/12/2013

// Seção de Declarações 

 var

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

i,j,soma:inteiro

inicio

// Seção de Comandos

para i de 1 ate 3 faca

     para j de 1 ate 3 faca

          escreva("DIGITE UM NUMERO: ")

          leia(mat[i,j])

          se (i=j) entao

             soma<-soma+mat[i,j]

          fimse

     fimpara

fimpara

escreval("A SOMA DOS ELEMENTOS DA DIAGONAL E DE ",soma)

fimalgoritmo