Cómo programar VFP

borrar

moneda de diez centavos a(10)

para i=1 a 10

entrada a a(i)

endfor

max=a(1)

min=a(1)

para i=2 a 10

if max

max=a(i)

endif

if min>a(i)

min =a(i)

endif

endfor

"El número máximo entre 10 números es: ", max

"10 El El punto decimal más pequeño del número es: ",min

return