[Resolvido] visualg -vetores e numeros primos

Escrever um algoritmo que armazene 50 valores inteiros em um vetor. Calcular e escrever a quantidade de números primos contidos neste vetor

Bem sucinto. Alguma dúvida? :smiley:

algoritmo "Ex08" var I, J, CONTA, P: inteiro //primo : logico M: vetor [1..5] de inteiro inicio // Seção de Comandos para I de 1 ate 5 faca escreva ("digite o ", I, "º elemento: ") leia (M[I]) fimpara para I de 1 ate 5 faca para J de 1 ate M[I] faca se (M[I] mod J = 0) entao P := P + 1 // conta a quantidade de divisões exatas fimse fimpara se (P = 2) entao // se ocorrer apenas 2 divisões exatas CONTA := CONTA + 1 // conta a qtde de num primos existentes fimse P := 0 fimpara escreval("") escreval ("O vetor contem ", CONTA, " Numeros primos") fimalgoritmo