Una variable que contiene 10 números enteros.

¿Sub? Principal()

¿Atenuado? Respuesta (10)

¿Oscuro? I,? Máx. Departamento

Máx. =?-32766

¿Mínimo? =?32766

¿Para qué? ¿I? =?0?¿Adónde ir? Nueve

¿Un (yo)? =?CInt(InputBox("Ingrese un número:",?"Ejemplo"?I))

Si? ¿Un(yo)? >? Máx. ¿Entonces qué? Máx. =?Respuesta (1)

¿Y si? ¿Un(yo)? <? ¿Sensible? ¿Entonces qué? ¿Sensible? =?Respuesta (1)

¿Siguiente? Yo

¿MsgBox? ¿Cuál es la cantidad máxima? y amplificador? Máx. y amplificador? ",?Cantidad mínima:"? y amplificador? Departamento

¿Fin? Submarino