algoritmo "Ex1"

var vet:vetor[1..10] de inteiro

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

   i,L,C:inteiro

inicio

   para i de 1 ate 10 faca

     escreva("Digite um numero p/ vetor indice ", i ,": ")

     leia(vet[i])

   fimpara

   para L de 1 ate 10 faca

     para C de 1 ate 10 faca

       escreva("Digite um numero p/ matriz Linha ",L," Coluna ",C," :")

       leia(mat[L,C])

     fimpara

   fimpara

   para L de 1 ate 10 faca

     para C de 2 ate 10 passo 2 faca

       //imprimir quantas vezes os valores se encontram na matriz

       mat[L,C] <- mat[L,C] * vet[L]

     fimpara

   fimpara

   escreval("Matriz resultante:")

   para L de 1 ate 10 faca

     para C de 1 ate 10 faca

       escreva("Linha ",L," Coluna ",C," : ")

       escreval(mat[L,C])

     fimpara

   fimpara

fimalgoritmo

Explicação: