Question

No programa Visualg. Leia um vetor de 40 posições e atribua valor 0 para todos os elementos que possuírem valores negativos.

Alguém consegue me ajudar?

Answer 1

Resposta:

algoritmo "vetor negativo = 0"

// No programa Visualg. Leia um vetor de 40 posições e atribua

// valor 0 para todos os elementos que possuírem valores negativos.

var

vet: vetor [1..40] de inteiro

contador: inteiro

inicio

para contador de 1 ate 40 faca

  escreva("Informe o numero para o vetor", contador, " = ")

  leia(vet[contador])

  se (vet[contador] < 0) entao

     vet[contador] <- 0

  fimse

  contador <- contador + 1

fimpara

para contador de 1 ate 40 faca

  escreval("O vetor ", contador," é =", vet[contador])

  contador <- contador + 1

fimpara

fimalgoritmo

Explicação:

Dê uma olhada do programa em execução.