Dimensiones 18.05.2017

Proceso sin_titulo
	Definir elementos,i Como Entero;
	Dimension elementos(7);

	elementos(0)=1;
	elementos(1)=10;
	elementos(2)=20;
	elementos(3)=20;
	elementos(4)=100;
	elementos(5)=500;
	elementos(6)=900;

	para i = 0 hasta 6 con paso 1 hacer
		Escribir "elementos ",i,": ",elementos(i);
	FinPara

FinProceso

//

Proceso sin_titulo
	Definir elemento,i,contador Como Entero;
	Definir promedio como real;
	Dimension elemento(1500);
	promedio = 0;	contador = 0;

	Para i = 0 hasta 1499 con paso 1 hacer
		elemento(i) = azar(3000)-1500;
	FinPara

	Para i = 0 hasta 1499 con paso 1 hacer
		si elemento(i)%2 == 0 Entonces
			Escribir Sin Saltar elemento(i),"  ";
		FinSi
		contador = contador + 1;
	FinPara
	Escribir "contador: " ,contador;
FinProceso