Proceso Estricto
Definir VAL_MAYOR,ARREGLO,CANT,I Como Enteros;
Dimension ARREGLO[100];
Escribir "Ingrese la cantidad de números:";
Leer CANT;
Para I<-01 Hasta CANT-1 Hacer
Escribir "Ingrese un numero:";
Leer ARREGLO[I];
FinPara
VAL_MAYOR<-0;
Para I<-0 Hasta CANT-1 Hacer
Si ARREGLO[I]>VAL_MAYOR Entonces
VAL_MAYOR<-ARREGLO[i];
FinSi
FinPara
Si VAL_MAYOR % 2 = 0 Entonces
Escribir "El mayor es ",VAL_MAYOR," y es par";
Sino
Escribir "El mayor es ",VAL_MAYOR," y es impar";
FinSi
FinProceso
| |
Proceso Flexible
Escribir "Ingrese la cantidad de números:"
Leer CANT
Dimension ARREGLO[CANT]
Para Cada Elemento de ARREGLO
Escribir "Ingrese un numero:"
Leer ELEMENTO
Fin Para
VAL_MAYOR<-0
Para Cada ELEMENTO de ARREGLO
Si ELEMENTO Es Mayor Que VAL_MAYOR
VAL_MAYOR<-ELEMENTO
Fin Si
Fin Para
Si VAL_MAYOR Es Par
Escribir "El mayor es " VAL_MAYOR " y es par"
Sino
Escribir "El mayor es " VAL_MAYOR " y es impar"
Fin Si
FinProceso
|