Изменить порядок следования элементов в массиве на обратный
Изменить порядок следования элементов в массиве на обратный
2010-01-08 07:00 Александр
Изменить порядок следования элементов в массиве на обратный
Const N=10
Dim Z as double
Dim A(1 to N) as Double
Sub NNN()
Dim I as integer
For I=1 to N\2
Z=A(I)
A(I)=A(Ubound(A)-I+1)
A(Ubound(A)-I+1)=Z
Next
End Sub