Swap min val with max in array

[Azharqurahi]

Hi all,

I want to swap the min value with max value without changing the array element.

Array(10,5,20,35,15)

Thanks in advance

[Ankur]

Code:

sort = Array(10,5,20,35,15)

smallest = sort(0) 'Assuming
greatest = sort(0) 'Assuming

For i = 1 To UBound(sort)
    
    'Looking for smallest
    If sort(i) < smallest then
        smallest = sort(i)
        small_index = i
    End If
    'Looking for greatest
    If sort(i) > greatest then
        greatest = sort(i)    
        great_index = i
    End If
    
Next

'Swapping Values
sort(small_index) = greatest
sort(great_index) = smallest

'Just confirming
For y = o To 4
    msgbox sort(y)
Next

[Azharqurahi]

Tahnks a lot Ankur.........

This question ask me a interviewer.

I have taken min and max value but don't know how to swap.

Thanks Again.... Doing grate job Dear