Search repeated numbers in list with Visualg

Asked

Viewed 1,731 times

2

Write a program that receives 100 numbers typed by the user. At the end the program displays how many numbers are reported equal to the last number typed.

As far as I can go:

algoritmo "semnome"
// Função :
// Autor :
// Data : 30/05/2017
// Seção de Declarações 
var
vet:vetor[1..10] de inteiro
NUM,i,igual:INTEIRO
inicio
Para i <- 1 ate 5 faca
   Escreva("Digite um numero: ")
   Leia(num)
fimpara
para i <- 1 ate 5 faca
   se(num = vet[5])entao
       igual <- num + vet[10]
   fimse
fimpara
Escreva(igual)
fimalgoritmo

How do I compare the values and show how many numbers are equal?

array portugol visualg

1 answer

3


algoritmo "semnome"
// Função :
// Autor :
// Data : 30/05/2017
// Seção de Declarações 
var
vet:vetor[1..100] de inteiro
i, igual : INTEIRO
inicio
Para i <- 1 ate 100 faca
   Escreva("Digite um numero: ")
   Leia(vet[i])
fimpara
para i <- 1 ate 99 faca
   se (vet[i] = vet[100]) entao
       igual <- igual + 1
   fimse
fimpara
Escreva(igual)
fimalgoritmo

I put in the Github for future reference.

If the last is the previous then you should change this line:

   se (vet[i] = vet[i + 1]) entao

Browser other questions tagged array portugol visualg

You are not signed in. Login or sign up in order to post.