Tengo un código en consola que ordena un array, pero solamente si el número es positivo, si ingreso un negativo solo coloca en 0, también, el segundo array debe quedar vácio, pero si yo coloco un 0 en la posición del array que es mayor en ese momento y hay otra posición con el mismo número, ambos se convierten en 0, cómo¿cómo puedo solucionar estos dos problemas?
Module Module1
Module Module1
Sub Main()
Dim Array(4) As Double 'Primer Array.
Dim Orden(4) As Integer 'Segundo Array.
Dim j As Integer = 0 'Autoincremento de el segundo Array.
Dim Mayor As Integer 'Número mayor temporal.
Console.WriteLine("Ingrese 5 números enteros.")
For i = 0 To Array.Length - 1 'Finaliza en la ultima posición del Array.
Console.Write(i & "> ") 'Se ingresan los números.
Array(i) = Console.ReadLine 'Se almacena en la posición en cestión.
If Array(i) Mod 1 = 0 Then 'Si el número es entero no pasa nada.
Else 'Se el número es decimal i decrece en 1.
Console.WriteLine("Por favor, digite un número entero.")
i = i - 1
End If
Next
Do While j < 5 'Hasta que j valga 5.
For i = 0 To 4
Mayor = Max(Mayor, Array(i)) 'Se calcula el número mayor temporalmente.
Next
For i = 0 To 4
If Mayor = Array(i) Then 'La posición del array que sea igual a mayor pasará a ser 0.
Array(i) = 0
End If
Next
Orden(j) = Mayor 'La posición actual de Orden es rellenada con el valor mayor.
j = j + 1 'j incrementará en 1.
Mayor = -32768 'Mayor pasa a valer lo menor posible, por si los números son negativos.
Loop
Console.WriteLine("Array inicial") 'Se imprime el primer Array.
For i = 0 To 4
Console.WriteLine(">" & Array(i))
Next
Console.WriteLine("Array ordenado") 'Se imprime el segundo Array.
For i = 0 To 4
Console.WriteLine(">" & Orden(i))
Next
Console.WriteLine("Presione cualquier tecla para salir...")
Console.ReadKey()
End Sub
End Module
End Module