Var
entero: i
entero: lista[100], menor, mayor
Inicio
Leer( lista )
menor = menor = lista[0]
Desde i = 1 hasta i < 100 inc i++ hacer
Si ( lista[i] < menor ) entonces
menor = lista[i]
Fin si
Si ( lista[i] > mayor ) entonces
mayor = lista[i]
Fin si
Fin desde
Escribir( "Menor: " + menor )
Escribir( "Mayor: " + mayor );
Fin
Esto si los datos se encuentran almacenados ya en el vector "lista". Ahora si tiene que determinarse el menor y mayor durante el proceso de lectura de los elementos pues es similar, solo que esta vez se debe leer el primer elemento del vector fuera del bucle.
Inicio
i = 0
Leer( lista[i] )
menor = mayor = lista[i]
desde i = 1 hasta i < 100 inc i++ hacer
Leer( lista[i] )
Si ( lista[i] < menor ) entonces
menor = lista[i]
Fin si
Si ( lista[i] > mayor ) entonces
mayor = lista[i]
Fin si
Fin desde
Escribir( "Menor: " + menor )
Escribir( "Mayor: " + mayor );
Fin