Selezionare valore massimo e minimo da Array

[Pius]

ragazzi ho un array generato dinamicamente e composto da una serie di numeri...

Il mio problema è ora quello di selezionare il numero + grande e quello + piccolo all'interno della serie....

come posso fare???

[optime]

non c'e' niente di già pronto. devi farlo a mano

[Baol74]

Ar = Array(8,4,7,31,2,6)
Dim Min,Max
Min=Ar(0):Max=Ar(0)
For i=1 to uBound(Ar)-1
 If Ar(i)<Min then 
   Min = Ar(i)
 ElseIf Ar(i)>Max then 
   Max = Ar(i)
 End if
Next

Response.Write "Minimo : " & Min & "
"
Response.Write "Massimo : " & Max & "
"