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