Alvaro Olarte Suancha
19 de Mayo del 2006

Por favor ayudenmen a resolver este algoritmo lo necesito con uregencia quien sepa la respuesta.
el problema es el siguiente:
Almacenar 20 numeros en un vector, elevar al cuadrado cada valor almacenado, en el vector, almacenar el resultado en otro vector.
Imprimir el vector original, el vector resultante, del vector resultante, imprimir la sumatoria de los datos que resulten ser menores que el dato mayor del vector.

Manuel
19 de Mayo del 2006

No debería darte la respuesta ya cocinada, pues la idea es que aprendas a hacerlo tú mismo.. pero ahí te va:
Te daré una parte. Te queda de tarea obtener la última condición: La sumatoria de los números menores al mayor de todos los del vector.
*************_INICIO
DIMENSION A(20),B(20)
MAYOR=0
FOR I=1 TO 20
A(I)=0
@I,10 SAY 'INGRESE EL '+ALLTRIM(STR(I))+'º#: ' GET A(I)
READ
B(I)=A(I)*A(I)
IF I=1
MAYOR=A(I)
ELSE
MAYOR=MAX(MAYOR,A(I))
ENDIF
ENDFOR
@23,10 SAY 'PRESIONE <ENTER> PARA VER LOS RESULTADOS'
READ
CLEA
@1,10 SAY 'VECTOR 1'
@1,20 SAY 'VECTOR 2'
@1,30 SAY 'MENORES'
FOR I=1 TO 20
@I+1,10 SAY A(I)
@I+1,20 SAY B(I)
IF B(I)<MAYOR
@I+1,30 SAY B(I)
ENDIF
ENDFOR
**************_FIN