5.21 – Faça um programa que leia // um vetor com dez posições para números inteiros. // Crie um segundo vetor, // substituindo os valores nulos por 1. // Mostre os dois vetores.

Algoritmo "5.21"

// 5.21 – Faça um programa que leia
// um vetor com dez posições para números inteiros.
// Crie um segundo vetor,
// substituindo os valores nulos por 1.
// Mostre os dois vetores.

Var
    i : Inteiro
    v : Vetor[1..10] de Inteiro
   v1 : Vetor[1..10] de Inteiro

Inicio
   Para i := 1 ate 10 faca
      Leia (v[i])
   FimPara

   Para i := 1 ate 10 faca
      Se v[i] = 0 Entao
         v1[i] := 1
      Senao
         v1[i] := v[i]
      FimSe
   FimPara

   LimpaTela

   Escreval ("Primeiro Vetor")
   Para i := 1 ate 10 faca
      Escreva (v[i])
   FimPara
 
   Escreval

   Escreval ("Segundo Vetor")
   Para i := 1 ate 10 faca
      Escreva (v1[i])
   FimPara

Fimalgoritmo