Program to arrange the array in descending order Console application

Program to arrange the array in descending order

Console application

 Source code:-

 

Module Module1

    Sub Main()

        Dim arr(4), arr1(4) As Integer

        Dim i As Integer

        For i = 0 To arr.Length - 1

            Console.WriteLine("Enter {0} element of array:", i + 1)

            arr(i) = Convert.ToInt32(Console.ReadLine())

        Next

        Array.Copy(arr, arr1, arr1.Length)

        'Array.Copy(source, destination, Destination Length)

        Array.Sort(arr1)

        Array.Reverse(arr1)

        For i = 0 To arr1.Length - 1

            Console.Write("Enter {0} element of array in Arrange order:", i + 1)

            Console.WriteLine(arr1(i))

        Next

        Console.ReadLine()

    End Sub

End Module

Output:-