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 p>
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