//5.22 – Faça um programa que leia um vetor A de dez posições. //Em seguida, compacte o vetor, retirando os valores nulos e negativos. //Armazene esse resultado no vetor B. Mostre o vetor B. //(lembre-se: o vetor B pode não ser completamente preenchido)

//5.22 – Faça um programa que leia um vetor A de dez posições.
//Em seguida, compacte o vetor, retirando os valores nulos e negativos.
//Armazene esse resultado no vetor B. Mostre o vetor B.
//(lembre-se: o vetor B pode não ser completamente preenchido)
algoritmo "5.22"

var
   numeros: vetor [1..10] de inteiro
   i,l: inteiro
   nulos: vetor [1..10] de inteiro

inicio
   para i de 1 ate 10 faca
      escreval (" digite um numero ")
      leia (numeros[i])
   fimpara
   l <- 0
   para i de 1 ate 10 faca
      se (numeros[i] > 0) entao
         l <- l + 1
         nulos[l] <- numeros[i]
      fimse
   fimpara
   limpatela
   escreval("Vetor digitado")
   para i de 1 ate 10 faca
    escreva( numeros[i])
   fimpara
   escreval
   escreval("Vetor Resultante")
   para i de 1 ate l faca
     escreval("______")
     escreval(nulos[i])
   fimpara
fimalgoritmo