Exemplo de programação matriz visualg

algoritmo "01"

var i: inteiro v: vetor [1..12] de inteiro inicio // Seção de Comandos para i de 1 ate 12 passo 1 faca repita escreva("Entre com o numero ", i, "da sequencia: ") leia(v[i]) ate (v[i] >= 0) fimpara escreval("Valores maiores que 121:") para i de 1 ate 12 passo 1 faca se (v[i] > 121) entao escreval(v[i]) fimse fimpara fimalgoritmo
-------------------------------------------------

algoritmo "02"

var num,n, maior, contMaior: inteiro x: vetor [1..10] de inteiro inicio n <- 1 num <-1
// Seção de Comandos enquanto (num <=10)faca escreval ("Digite a posição numero ", num) leia (n) se (n <0 )entao escreval("opção inválida") senao x[num] <- n num <- num+1 fimse fimenquanto n <- 0 para n de 1 ate 10 passo 1 faca

se (x[n] > maior) ou (n = 1) entao maior <- x[n] contMaior <- 1 senao se x[n] = maior entao contMaior <- contMaior + 1 fimse fimse fimpara n<- 0 escreval ("O maior numero foi o ", maior) escreval ("Ele apareceu ", contmaior, " Vezes") escreval ("Ele apareceu nas posições:") para n de 1 ate 10 passo 1 faca se (x[n] = maior)entao escreval ("x[",n," ]") fimse fimpara fimalgoritmo

algoritmo "03" var i: inteiro a, b: vetor [1..10] de inteiro inicio // Seção de Comandos para i de 1 ate 10 passo 1 faca

repita escreva("Digite a posição de num ", i,) leia(a[i]) ate (a[i] >= 0) b[i] <- a[i] * -1 fimpara

escreval("Vetor a:") para i de 1 ate 10 passo 1 faca escreva(a[i], ", ") fimpara escreval (" ") escreval("Vetor b:") para i de 1 ate 10 passo 1 faca escreva(b[i], ", ") fimpara fimalgoritmo