Occam Gates

Amigo agradeço, confesso que fiquei perdido na questão. Agradeço a você com sua excelente metodologia. (mas é assim mesmo, com os erros só temos a melhorar nosso aprendizado)...És um ótimo professor - parabéns.

algoritmo "busca sequencial "
var
   j,k, vb : inteiro
   v : vetor[1..20] de inteiro
   v1: vetor [1..20] de inteiro
   achou : logico
   RESP: logico
   ENTER:caractere

procedimento preenchevetor
var j : inteiro
inicio
   para j de 1 ate 20 faca
      v[j] <- randi(200)
      escreval(j:10,v[j]:10)
   fimpara
fimprocedimento

inicio
   RESP:= verdadeiro
   enquanto RESP = verdadeiro faca
      preenchevetor
      escreva("Entre com o valor de busca (ESC termina) :")
      leia(vb)
      j <- 1
      repita
         se v[j] = vb entao
            achou <- verdadeiro
         senao
            j <- j+1
         fimse
      ate (achou=verdadeiro) ou (j>20)
      se achou entao
         escreval("Achei ", vb , " na posição ", j)
      senao
         repita
           se v[j] = vb entao
            achou <- verdadeiro
         senao
            j <- j+1
         fimse
         
      ate(achou > 0) ou (j>20)
         escreval(" o valor ", vb , "repetiu na posição ", j)
         fimse

 

      escreva ("Pressione ENTER para continuar")
      leia(ENTER)
   fimenquanto
fimalgoritmo

Saudações meu amigo Simon Viegas, voltei com o código ainda em construção, inclusive tentei fazer o solicitado no post #2, mas estamos quase lá ! Observe que acrescentei o repita dessa vez com "achou >0" como forma de tentar encontrar ocorrências, mas nada ainda.Desde já obrigado.

Citação:

Ao tempo que agradeço a interação, deixo meu entendimento após sua excelente explicação. 
Fiz o que me disse, Inclusive acrescentei o vetor de modo que achou > 1, 
como forma de tentar fazer com que o vetor pudesse encontrar as ocorrências, mas não consegui. 

algoritmo "busca sequencial "
var
   j,k, vb : inteiro
   v : vetor[1..20] de inteiro
   v1: vetor [1..20] de inteiro
   achou : logico
   RESP: logico
   ENTER:caractere

procedimento preenchevetor
var j : inteiro
inicio
   para j de 1 ate 20 faca
      v[j] <- randi(200)
      escreval(j:10,v[j]:10)
   fimpara
fimprocedimento

inicio
   RESP:= verdadeiro
   enquanto RESP = verdadeiro faca
      preenchevetor
      escreva("Entre com o valor de busca (ESC termina) :")
      leia(vb)
      j <- 1
      repita
         se v[j] = vb entao
            achou <- verdadeiro
         senao
            j <- j+1
         fimse
      ate (achou=verdadeiro) ou (j>20)
      se achou entao
         escreval("Achei ", vb , " na posição ", j)
      senao
         repita
            se ( v[j] = vb)
               achou <- verdadeiro
            ate (achou > 1) ou (j>20)
            escreval(" Valor: ", vb , " repetiu na posição ", j)}
            senao}
            escreval("Nao achei.")}
         fimse
      fimse

      escreva ("Pressione ENTER para continuar")
      leia(ENTER)
   fimenquanto
fimalgoritmo

Saudações galera, sou novo em programação e gostaria de suas valiosa dicas com relação a seguinte questão:

Faça um programa que efetue a busca do tipo sequencial por um valor em um vetor de 200   posições, sabendo que o mesmo valor pode ocorrer mais de uma vez no vetor. O programa deve  imprimir o número de ocorrências do valor de busca, caso ocorram.

Obs. (O programa deve ser desenvolvido por meio da ferramenta Visualg)

Comecei fazendo a questão, porém o mesmo não consegue identificar os valores repetidos no vetor. Por gentileza onde estou errando ?

Segue o código do programa:

algoritmo "busca sequencial "

var
   j,k, vb : inteiro
   v : vetor[1..20] de inteiro
   v1: vetor [1..20] de inteiro
   achou : logico
   RESP: logico

procedimento preenchevetor

var j : inteiro

inicio
      para j de 1 ate 20 faca
           v[j] <- randi(200)
           escreval(j:10,v[j]:10)

      fimpara
fimprocedimento

inicio

 RESP:= verdadeiro
    enquanto RESP = verdadeiro faca
   preenchevetor
             escreva("Entre com o valor de busca (ESC termina) :")
             leia(vb)
         j <- 1
         repita
               se v[j] = vb entao
                  achou <- verdadeiro
               senao
         j <- j+1
               fimse
                    ate (achou=verdadeiro) ou (j>20)
               se achou entao
         escreval("Achei ", vb , " na posição ", j)
               senao
               se ( v[j] = vb) entao
                escreval(" Valor: ", vb , " repetiu na posição ", j)
               senao
         escreval("Nao achei.")
   fimse
 fimse

fimenquanto

fimalgoritmo

No mais só tenho a agradecer.