// 5.20 – Faça um programa que leia um vetor de dez posições para números //inteiros e mostre somente os números positivos.

Algoritmo "5.20"
// Disciplina   : [Algorítmo e Técnicas de Programção]
// Professor    : Angelo da Cunha Sá
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 17/11/2016
//  5.20 – Faça um programa que leia um vetor de dez posições para números
//inteiros e mostre somente os números positivos.

Var
   // Seção de Declarações das variáveis
   n: vetor [1..10] de inteiro
   i:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...

   para i := 1 ate 10 faca
      escreval("Digite um valor")
      leia(n[i])
      limpatela
      se n[i] = 0 entao
         escreval(" Este número é nulo")
      senao
         se n[i] > 0 entao
            escreval(n[i]," é um número positivo")

         fimse
      fimse



   fimpara


Fimalgoritmo