por chiribin (Visitante) el 31 Ago 2007, 20:56
hola tengo un problema con fox cuando lo ejecuto me tira error referencia subindice...pero ya declare a todos si alguien me puede dar una mano se lo agardesco
set talk off
clear
store 0 to nro,men,cpos,aux, pos
c=1
ind=1
dimension v(10)
for c=1 to 10
@ 2,2 say "ingrese 10 nros" get nro valid nro > 0
read
v(c)=nro
endfor
c=1
do while ind < 11
do while c < 11
if v(c) < men or men = 0
men=v(c)
cpos=c
endif
c=c+1
enddo
c=ind
if v(c) > men
aux=v(c)
v(c)= v(pos) **en esta linea me salta el error**
v(pos)=aux
endif
ind=ind+1
c=ind
men=0
enddo
x=10
for c=1 to 10
@ x,20 say v(c)
x=x+1
endfor