5.4 - Faça um programa que preencha um vetor com quinze elementos inteiros e verifique a existência de elementos iguais a 30, mostrando as posições em que apareceram.

//5.4 - Faça um programa que preencha um vetor com quinze elementos inteiros e verifique a existência de elementos iguais a 30, mostrando as posições em que apareceram.
Algoritmo "questão 5.4"
// Disciplina   : ALGORITMOS
// 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  : 23/10/2016
Var
   // Seção de Declarações das variáveis
   vet:vetor[1..15]de inteiro
   i,CONT:inteiro

Inicio
   // Seção de Comandos, procedimento, funções, operadores, etc...
   CONT:=0
   PARA I:=1 ATE 15 FACA
      ESCREVAL("DIGITE O ",I,"º NÚMERO..")
      LEIA(VET[I])
   FIMPARA
   ESCREVAL("------------------------------------")
   PARA I:=1 ATE 15 FACA
      SE VET[I]=30 ENTAO
         ESCREVAL("NA POSIÇÃO ",I," EXISTE O NÚMERO 30")
         CONT:=1
      FIMSE
   FIMPARA
   SE CONT=0 ENTAO
      ESCREVAL("O NÚMERO 30 NÃO EXISTE NO VETOR..")
   FIMSE

Fimalgoritmo