SortScambio
Dim V(1000) For i=1 to 999 For j=i+1 to 1000 if V(j)>V(i) then Appo=V(i) V(i)=V(j) V(j)=Appo end if Next j Next i
Dim V(1000)
For i=1 to 999
For j=i+1 to 1000
if V(j)>V(i) then
Appo=V(i)
V(i)=V(j)
V(j)=Appo
end if
Next j
Next i
(sortscambio.html)- by Paolo Puglisi - Modifica del 25/3/2019