Module MainModule
 
	Sub Main
 
	Console.WriteLine("Sorting values in decending order")
	Console.WriteLine()
 
	Dim ans As String
 
	Do
 
	Dim Num() As Integer
	Dim x As Integer
	Dim y As Integer
	Dim size As Integer
	Dim temp As Integer
 
 
	Console.WriteLine("Input Size of Array: ")
	size=Convert.ToInt32(Console.Readline())
 
	ReDim Num (size)
 
	For x=0 To size-1
 
	Console.WriteLine("Input number: ")
	Num(x)=Convert.ToInt32(Console.Readline())
 
	Next
 
	For x=0 To size-1
 
	For y=0 To size-1
 
			IF Num(y) < Num(y+1) 	Then
 
			temp=Num(y)
			Num(y)=Num(y+1)
			Num(y+1)=temp
 
			End IF
 
	Next
 
	Next
 
	Console.WriteLine()
	Console.WriteLine()
	Console.Write("The sorted value of the array are ")
 
 
	For x=0 To size-1
 
	Console.Write("  {0}  ", Num(x))
 
	Next
 
	Console.WriteLine()
	Console.WriteLine()
	Console.WriteLine("Try again Y/N: ")
	ans=Console.Readline()
	Loop While(ans.ToUpper="Y")
 
	End Sub 
 
End Module
 
 

TW9kdWxlIE1haW5Nb2R1bGUKCglTdWIgTWFpbgoKCUNvbnNvbGUuV3JpdGVMaW5lKCJTb3J0aW5nIHZhbHVlcyBpbiBkZWNlbmRpbmcgb3JkZXIiKQoJQ29uc29sZS5Xcml0ZUxpbmUoKQoJCglEaW0gYW5zIEFzIFN0cmluZwoKCURvCgkKCURpbSBOdW0oKSBBcyBJbnRlZ2VyCglEaW0geCBBcyBJbnRlZ2VyCglEaW0geSBBcyBJbnRlZ2VyCglEaW0gc2l6ZSBBcyBJbnRlZ2VyCglEaW0gdGVtcCBBcyBJbnRlZ2VyCgkKCQoJQ29uc29sZS5Xcml0ZUxpbmUoIklucHV0IFNpemUgb2YgQXJyYXk6ICIpCglzaXplPUNvbnZlcnQuVG9JbnQzMihDb25zb2xlLlJlYWRsaW5lKCkpCgkKCVJlRGltIE51bSAoc2l6ZSkKCQoJRm9yIHg9MCBUbyBzaXplLTEKCQoJQ29uc29sZS5Xcml0ZUxpbmUoIklucHV0IG51bWJlcjogIikKCU51bSh4KT1Db252ZXJ0LlRvSW50MzIoQ29uc29sZS5SZWFkbGluZSgpKQoJCglOZXh0CgkKCUZvciB4PTAgVG8gc2l6ZS0xCgoJRm9yIHk9MCBUbyBzaXplLTEKCQoJCQlJRiBOdW0oeSkgPCBOdW0oeSsxKSAJVGhlbgoJCQkKCQkJdGVtcD1OdW0oeSkKCQkJTnVtKHkpPU51bSh5KzEpCgkJCU51bSh5KzEpPXRlbXAKCgkJCUVuZCBJRgoJCglOZXh0CgkKCU5leHQKCQoJQ29uc29sZS5Xcml0ZUxpbmUoKQoJQ29uc29sZS5Xcml0ZUxpbmUoKQoJQ29uc29sZS5Xcml0ZSgiVGhlIHNvcnRlZCB2YWx1ZSBvZiB0aGUgYXJyYXkgYXJlICIpCgoJCglGb3IgeD0wIFRvIHNpemUtMQoJCglDb25zb2xlLldyaXRlKCIgIHswfSAgIiwgTnVtKHgpKQoKCU5leHQKCglDb25zb2xlLldyaXRlTGluZSgpCglDb25zb2xlLldyaXRlTGluZSgpCglDb25zb2xlLldyaXRlTGluZSgiVHJ5IGFnYWluIFkvTjogIikKCWFucz1Db25zb2xlLlJlYWRsaW5lKCkKCUxvb3AgV2hpbGUoYW5zLlRvVXBwZXI9IlkiKQoJCglFbmQgU3ViIAoKRW5kIE1vZHVsZQoK