Boa noite,estou tentando executar um algoritmo no visualg que leia 100 números,descubra se existe números primos,se sim mostrar em que posição se encontra. Entretanto,o programa só está executando até onde mostra o vetor. Gostaria de ajuda de como terminar e realizar a verificação do número primo.
Var
num, cont, divisor: inteiro
VET: vetor[0..99] de inteiro
Inicio
escreval ("Olá!Você quer saber se existe número primo? ")
Para num <- 0 ate 99 faca
Escreva("Digite o ", num, "o. valor: ")
Leia(VET[num])
FimPara
LimpaTela
escreva ("Vetor: ")
para num <- 0 ate 99 faca
escreva (VET[num])
fimpara
escreval ("")
cont <- 0
divisor <- 1
Para num <- 0 ate 99 faca
cont <- cont + 1
divisor <- divisor + 1
se (divisor <= num)e(num mod divisor = 0)e (cont = 2) entao
EscrevaL("Valor", VET[num], " na posicao [",num, "] é Primo!")
fimse
fimpara
Fimalgoritmo