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?
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