Preguntas simples sobre programación VFP

* 1 *Ingrese N números y cuente el número de números positivos, números negativos y ceros

dimensión a(3)

a=0

ingrese "Número:" a N

para i=1 a N

ingrese "Por favor ingrese el " alltrim(str(i)) " Número: " to a1

b1=SIGN(a1) 2

a(b1)=a(b1) 1

endfor "El número de números positivos :", a(3) "El número de ceros:", a(2) "El número de números negativos:", a(1)

* 2 * Ingrese N números cualesquiera y descubra entre ellos El máximo y números mínimos, y encuentre su promedio

ingrese "número:" a N

si n=0

retorno

endif

ingrese "Por favor ingrese el primer número:" a a1

max=a1

min=a1

s=a1

para i=2 a N

ingrese "Ingrese el número de " alltrim(str(i)) ":" a a1

if a1gt;max

max=a1

else

si a1lt;min

min=a1

endif

endif

s=s a1

endfor "Número máximo:", max "Número mínimo:", min "Valor medio:", s /n