
'Tipo de tab :
Type arrayEntero array(1...N) : Entero

'Consideramos que la talla del array es N
Algo numeroMayor( D array : arrayEntero, D tallaarray : Entero, R elMayor : Entero)
Inicio
	' Inizializamos para un valor cualquiera la variable usada
	Var elMayorActual <- arrayEntero(1)
	For i que va de 1 a tallaarray Hacer
		If elMayorActual < arrayEntero(i) Hacer
			' Si encontramos un valor mayor que la contenida en la variable elMayorActual, la remplazamos por el nuevo valor encontrado
			elMayorActual <- arrayEntero(i)
		End_If
	
	End_For

	elMayor <- elMayorActual
Fin 

Type arrayEntero array(1...N) : Entero
' El objetivo es contar y que obtengamos los numeros positivos contenidos en el array de valor 
' El type para le array d'Entero positivo puede ser de 2 tipos : un array dinamico, donde aumentamos la talla cuando añadimos un elemento dentro. Y un array estatico, donde tenemos como talla el numero d'elementos dentro del array, desde donde leemos los enteros.
Algo ObtenerNumeroPositivo( D array : arrayEntero, D tallaarray : Entero , R NumerovalorPositivo : Entero , R valoresPositivos : arrayEntero)
Inicio 
	' Variable ya declarada como parametro de retorno para el algoritmo. 
	NumerovalorPositivo <- 0
		For i que va de de 1 a tallaarray Hacer
			si  arrayEntero(i) >= 0 Hacer
				' Si encontramos un valor Positivo 
				NumerovalorPositivo <- NumerovalorPositivo + 1 
				' Tambien utilizamos la variable "NumerovalorPositivo" como un index, permitiendo contar nuetra posición de escritura en el array de resultado "valoresPositivos"
				valoresPositivos(NumerovalorPositivo) <- arrayEntero(i)
			End_If
	
		End_For
Fin	

Type arrayEnteroDyn array(): Entero
'Ahora, utilizamos un array dinamico para el type del array de retorno 
Algo ObtenerNumeroNegativo( D array : arrayEntero, D tallaarray : Entero , R NumerovalorNegativo : Entero , R valoresNegativos : arrayEnteroDyn)
Inicio
	' Variable ya declarada como parametro de retorno para el algoritmo. 
	NumerovalorNegativo <- 0
		For i que va de 1 a tallaarray Hacer
			si  arrayEntero(i) < 0 Hacer
				' Si encontramos un valor Positivo 
				NumerovalorNegativo <- NumerovalorNegativo + 1 
				' Tambien utilizamos la variable "NumerovalorNegativo" como un index, permitiendo contar nuetra posición de escritura en el array de resultado "valoresNegativos"
				redim valoresNegativos(NumerovalorNegativo)
				valoresNegativos(NumerovalorNegativo) <- arrayEntero(i)
			End_If
	
		End_For

Fin 
