fitoperu2

Deberás poner en un bucle la función Readkey Cuando pulses una tecla de función, el primer valor sera cero, cuando leas que el primer valor es cero, entonces carga otra tecla, este valor corresponde a la tecla de función. Algo así. var tec:char;...

var n,max,min:integer; begin max:=0; min:=65535; n:=1; while n<>0 do begin readln(n); if n>max then max:=n; if n<min then min:=n; end; end.

Yo usaría la memoria de video, debe tener una razón de ser!. Digamos una tarjeta de 2MB puede cubrirme un promedio de 7.5Kb, si la memoria de video es de 1MB Te imaginas la cantidad de imágenes mono. ¿Qué puedes tener allí?. Ahora si organizas mejor...