Proceso Estricto
Definir ValMayor,Lista,Cant,I Como Enteros;
Dimension Lista[100];
Escribir "Ingrese la cantidad de números:";
Leer Cant;
Para I <- 0 Hasta Cant-1 Hacer
Escribir "Ingrese un numero:";
Leer Lista[I];
FinPara
ValMayor <- 0;
Para I <- 0 Hasta Cant-1 Hacer
Si Arreglo[I]>ValMayor Entonces
ValMayor <- Arreglo[i];
FinSi
FinPara
Si ValMayor % 2 = 0 Entonces
Escribir "El mayor es ", ValMayor, " y es par";
SiNo
Escribir "El mayor es ", ValMayor, " y es impar";
FinSi
FinProceso
| |
Algoritmo Flexible
// el tipo de cada var. se deduce del algoritmo
Escribir "Ingrese la cantidad de números:"
Leer Cant
Dimension Lista[Cant]
Para Cada Elemento de Lista
Escribir "Ingrese un numero:"
Leer Elemento
Fin Para
// las variables estan en 0/Falso/"" por defecto
Para Cada Elemento de Lista
Si Elemento Es Mayor Que ValMayor
ValMayor <- Elemento
Fin Si
Fin Para
Si ValMayor Es Par
Escribir "El mayor es " ValMayor " y es par"
SiNo
Escribir "El mayor es " ValMayor " y es impar"
Fin Si
FinAlgoritmo
|