Question

Hacer un algoritmo que permita cargar un vector con cinco números enteros y determinar, ¿cuantos números primos existen en el vector?. 2. hacer un algoritmo que permita cargar un vector con cinco números enteros y determinar, ¿cuantos números pares y cuantos números impares existen en el vector? 3. hacer un algoritmo que permita cargar dos vectores con cinco números enteros cada uno y calcular el promedio de cada uno de ellos. 4. hacer un algoritmo que permita cargar un vector con cinco números enteros y determinar lo siguiente: ¿cuál es el número mayor? y ¿cuál es el número menor?

Answer 1

Los algoritmos de los problemas con vectores planteados son:

Algoritmo Ejercicio1-NumerosPrimos

Dimension numeros[5];

Para i<-1 Hasta 5 Con Paso 1 Hacer

 Escribir "numeros[",i,"]=" sin saltar

 Leer valor;

 numeros[i]<-valor;

FinPara

contPrimos=0;

Para i<-1 Hasta 5 Con Paso 1 Hacer

 j=1;

 primo=1;

 Mientras j<=numeros[i] y primo=1 Hacer

  residuo<-numeros[i] MOD j;

  Si residuo=0 y j<>1 y j<> numeros[i] Entonces

   primo=0;

  Fin Si

  j=j+1

 Fin Mientras  

 Si primo=1 O numeros[i]=1 O numeros[i]=j Entonces

  contPrimos=contPrimos+1

 Fin Si

FinPara

Escribir "Cantidad de Primos:", contPrimos  sin saltar

FinAlgoritmo

Algoritmo Ejercicio2-Pares-Impares

Dimension numeros[5];

Para i<-1 Hasta 5 Con Paso 1 Hacer

 Escribir "numeros[",i,"]=" sin saltar

 Leer valor;

 numeros[i]<-valor;

FinPara

contPares = 0;

contImpares = 0;

Para i<-1 Hasta 5 Con Paso 1 Hacer

 residuo<-numeros[i] MOD 2;

 Si residuo = 0 Entonces

  contPares = contPares + 1;

 SiNo

  contImpares = contImpares + 1;

 Fin Si

FinPara

Escribir "Cantidad de Pares:", contPares

Escribir "Cantidad de Impares:", contImpares

FinAlgoritmo

Algoritmo Ejercicio2-Promedio

Dimension numeros1[5];

Dimension numeros2[5];

Escribir "Ingrese Primer vector:"

Para i<-1 Hasta 5 Con Paso 1 Hacer

 Escribir "numeros1[",i,"]=" sin saltar

 Leer valor;

 numeros1[i]<-valor;

FinPara

Escribir "Ingrese Segundo vector:"

Para i<-1 Hasta 5 Con Paso 1 Hacer

 Escribir "numeros2[",i,"]=" sin saltar

 Leer valor;

 numeros2[i]<-valor;

FinPara

suma1=0;

suma2=0

Para i<-1 Hasta 5 Con Paso 1 Hacer

 suma1=suma1+numeros1[i];

 suma2=suma2+numeros2[i];

 

 promedio1 = suma1/5;

 promedio2 = suma2/5;

FinPara

Escribir "Promedio vector 1 es:", promedio1

Escribir "Promedio vector 2 es:", promedio2

FinAlgoritmo

Algoritmo Ejercicio4-MayorMenor

Dimension numeros[5];

Escribir "Ingrese Primer vector:"

Para i<-1 Hasta 5 Con Paso 1 Hacer

 Escribir "numeros[",i,"]=" sin saltar

 Leer valor;

 numeros[i]<-valor;

FinPara

i=1;

numMayor=numeros[i];

numMenor=numeros[i];

Mientras i<5 Hacer

 i=i+1;

 Si numeros[i]>numMayor Entonces

  numMayor<-numeros[i]

 Fin Si

 

 Si numeros[i]<numMenor Entonces

  numMenor<-numeros[i]

 Fin Si

Fin Mientras

Escribir "El mayor es:", numMayor

Escribir "El menor es:", numMenor

FinAlgoritmo