Arreglos en pseint. Problema 75

Enunciado: Busque un números en 7 números ingresados y determine la posición y si existe o no el números buscado, use el método de búsqueda secuencial.



//BUSQUE UN NUMERO EN 7 NUMEROS INGRESADOS Y DETERMINE LA POSICION Y SI EXISTE
//O NO EL NUMERO BUSCADO,USE EL METODO DE BUSQUEDA SENCUENCIAL
Proceso Ejercicio5
   
    //Declaramos variables 
    Definir num, nb,p,i como entero;
    Definir t como entero;
   
    definir r como cadena;
   
    t=7;
    nb=0;
   
    //Definimos el array
    Dimension num[t];
   
    //Introducimos valores
    Para i<-1 Hasta t Con Paso 1 Hacer
        Escribir "Introduce un valor para la posición ",i;
        leer num[i];
    Fin Para   
   
    escribir "El valor a buscar, ingreselo: ";
    leer nb;
   
    r= "no existe";
    p= -1;
   

    Para i<-1 Hasta t Con Paso 1 Hacer
       
        Si num[i] = nb Entonces       
            r="Si existe";
            p=i;
        FinSi
       
    FinPara
   
    Escribir "El numero a buscar ", r, " se encuentra en la posicion ", p;
FinProceso

Arreglos en pseint. Problema 74

Enunciado: Dado 5 números, obtener la cantidad de números primos ingresados.




//DADO 5 NUMEROS,OBTENER LA CANTIDAD DE NUMEROS PRIMOS INGRESADOS.
Proceso Ejercicio4 
   
    //Declaramos variables 
    Definir num, c,i,j como entero;
    Definir t como entero;
    definir flan como logico;
   
    Definir suma Como Entero;
    t=5;
   
    c=0;
    i=0;
    j=0;
   
    //Definimos el array
    Dimension num[t];
   
    //Introducimos valores
    Para i<-1 Hasta t Con Paso 1 Hacer
        Escribir "Introduce un valor para la posicion ",i;
        leer num[i];
    Fin Para   
   
   
    Para i<-1 Hasta t Con Paso 1 Hacer
        flan = verdadero;
        Para j<- 2 hasta num[i]/2 con paso 1 hacer
            si num[i] mod j =0 entonces
                flan=falso;
               
               
            FinSi
        FinPara
        si flan entonces
            c=c +1;
           
        FinSi

    FinPara
    Escribir "El numero total de numeros primos ingresados son ", c;
FinProceso

Arreglos en pseint. Problema 73

Enunciado: Dado 5 números y un divisor, determinar cuantos números múltiplos hay del divisor en los 5 números ingresados.

//DADO 5 NUMEROS Y UN DIVISOR,DETERMINAR CUANTOS NUMEROS MULTIPLOS
//HAY EN LOS 5 NUMEROS INGRESADOS.
Proceso Ejercicio3
   
    //Declaramos variables 
    Definir num, divisor, contador, i, m como entero;
    Definir t como entero;
    Definir suma Como Entero;
    t=5;
    suma=0;
    m=0;
    divisor=0;
    contador=0;
   
   
    //Definimos el array
    Dimension num[t];
   
    //Introducimos valores
    Para i<-1 Hasta t Con Paso 1 Hacer
        Escribir "Introduce un valor para la posicion ",i;
        leer num[i];
    Fin Para   
   
    escribir "Introduce el valor divisor a inspeccionar";
    leer divisor;
   
   
   

    Para i<-1 Hasta t Con Paso 1 Hacer
        si num[i] mod divisor = 0 entonces
            contador=contador+1;
           
        FinSi
       
    FinPara
    Escribir "El numero total de divisores son ", contador;
FinProceso

Arreglos en pseint. Problema 72

Enunciado: Dado 5 números obtener el numero mayor.
Análisis: Para la solución de este problema, se requiere que el usuario ingrese 5 números y el sistema realice el proceso para devolver el mayor.

//DADO 5 NUMEROS OBTENER EL NUMERO MAYOR
Proceso Ejercicio2
   
    //Declaramos variables 
    Definir num, i, m como entero;
    Definir t como entero;
    Definir suma Como Entero;
    t=5;
    suma=0;
    m=0;
   
   
    //Definimos el array
    Dimension num[t];
   
    //Introducimos valores
    Para i<-1 Hasta 5 Con Paso 1 Hacer
        Escribir "Introduce un valor para la posicion ",i;
        leer num[i];
    Fin Para   
   
   
    Para i<-1 Hasta 5 Con Paso 1 Hacer
        si num[i] > m entonces
            m = num[i];
           
        FinSi
   
    FinPara
    Escribir "El numero mayor es ", m;
FinProceso

Arreglo en pseint . Problema 71

Enunciado:Dado 5 números obtener la suma
Análisis: Para la solución de este problema, se requiere que el usuario ingrese 5 números y el sistema realice el proceso para devolver la suma.


//DADO 5 NUMEROS OBTENER LA SUMA
Proceso ejercicio1
    Definir i,n,s Como Entero;
    s=0;
    Dimension n[5];
    Leer n[0];
    leer n[1];
    Leer n[2];
    Leer n[3];
    Leer n[4];
    Para i<-1 Hasta  5 con paso  1
        s<-s + n[0];
    Fin Para
   
   
    Escribir " suma " , s;
   
FinProceso