Question

Escreva um algoritmo que lê um vetor A(10) e escreva a posição de cada elemento igual a 10 deste vetor. (Visualg)

Answer 1

Resposta:

algoritmo "Vetor A(10)"

// Função : Escreva um algoritmo que lê um vetor A(10)

// e escreva a posição de cada elemento igual a 10

// deste vetor. (Visualg)

var

ndez : vetor [0..9] de inteiro

num, cont : inteiro

inicio

para cont de 0 ate 9 faca

  escreval("Digite um número:")

  leia(num)

  se (num=10) entao

     ndez[cont] <- num

  senao

     escreval("O numero digitado não é igual a 10")

  fimse

fimpara

escreval()

escreval("Vetores iguais a 10")

para cont de 0 ate 9 faca

  escreva("vetor A [",cont," ] -> ")

  escreval(ndez[cont])

fimpara

fimalgoritmo

Explicação:

Veja a foto do programa em execução