Exemplo 14

===========================================================
Exemplo 14:

Escrever um programa que leia um vetor de 30 posições e crie um segundo vetor,substituindo os valores zeros (do primeiro vetor) por 1. Mostrar os dois vetores.

===========================================================

// Seção de Declarações

var

seq2,seq:vetor[1..30]de real

cont:inteiro

inicio

// Seção de Comandos

para cont de 1 ate 30 faca

     escreva("Escreva um valor")

     leia(seq[cont])

fimpara

// Essa instrução PARA é para comparar os valores com ZERO. E preencher o segundo vetor e caso seja ZERO o valor é substituído por 1(UM).

// E se o valor for diferente de ZERO permanece sem alteração.

para cont de 1 ate 30 faca

       se (seq[cont]=0) entao

          seq2[cont]<-1

       senao

            seq2[cont]<-seq[cont]

       fimse

fimpara

// Mostrar o primeiro vetor

para cont de 1 ate 30 faca

     escreva(seq[cont])

fimpara

// Mostrar o segundo vetor

para cont de 1 ate 30 faca

     escreva(seq2[cont])

fimpara

fimalgoritmo

===========================================================