Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Изменить порядок следования элементов в массиве на обратный


Изменить порядок следования элементов в массиве на обратный
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


В избранное