CODIGO EN PSEINT PARA RESOLVER EL PROBLEMA

CON ESTE CODIGO DESDE PSEINT SE UTILIZA PARA LA VERIFICACION DE 10 NUMEROS INGRESADOS POR EL

Proceso VerificarNumerosPrimos
Dimension listaNumeros[10], esPrimo[10]
Definir i, j, contadorDiv, valor, tempNumero Como Entero

// Ingreso de 10 números con validación
Para i <- 1 Hasta 10
	Escribir "Ingrese el número ", i, " (debe ser mayor o igual a 1): "
	Leer tempNumero
	Mientras tempNumero < 1 Hacer
		Escribir "Número inválido. Intente nuevamente."
		Escribir "Ingrese el número ", i, " (debe ser mayor o igual a 1): "
		Leer tempNumero
	FinMientras
	listaNumeros[i] <- tempNumero
FinPara

// Verificar si cada número es primo
Para i <- 1 Hasta 10
	valor <- listaNumeros[i]
	contadorDiv <- 0
	
	Para j <- 1 Hasta valor
		Si valor % j = 0 Entonces
			contadorDiv <- contadorDiv + 1
		FinSi
	FinPara
	
	Si contadorDiv = 2 Entonces
		esPrimo[i] <- 1
	Sino
		esPrimo[i] <- 0
	FinSi
FinPara

// Mostrar resultados
Escribir "----- RESULTADOS -----"
Para i <- 1 Hasta 10
	Si esPrimo[i] = 1 Entonces
		Escribir "El número ", listaNumeros[i], " es primo."
	Sino
		Escribir "El número ", listaNumeros[i], " no es primo."
	FinSi
FinPara
FinProceso