Programación VF Introduzca N números enteros, intercambie el más pequeño con el primero y el más grande con el último.
*La programación VF ingresa N enteros, intercambia el más pequeño con el primer entero y el más grande con el último entero
Borrar
DIMENSION zs[1000]
INPUT 'Ingrese el primer número entero (salida E):' TO zs[1]
IF TYPE(' zs[1]')='C'
RETURN
ENDIF
GUARDAR 1 A zdh,zxh
GUARDAR zs[1] A zds,zxs
n=2
DO WHILE .t.
Ingrese 'Por favor ingrese el primero' + LTRIM(STR(n))+'Entero (salida E):' TO zs[n]
IF TYPE('zs[n]')='C'
IF UPPER(zs[n])='E'
SALIR
ELSE
LOOP
ENDIF
ENDIF
IF zs[n]>zds
zds=zs[n]
zdh=n
ENDIF
IF zs[n] zxs=zs[n ] zxh=n ENDIF n=n+1 ENDDO FOR i=1 A n-1 ?zs[i] ENDFOR IF zxh>1 lss= zs[1] zs[1]=zs[zxh] zs[zxh]=lss ENDIF IF zdh< ;n-1 lss=zs[n-1] zs[n-1]=zs[zdh] zs[zdh]=lss ENDIF ENDIF FOR i=1 TO n-1 ?zs[i] ENDFOR ?