8 Январь 2010

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

Задачи |  Таги: , , , , ,

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

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

Запись опубликована on 08.01.2010 at 9:00 и размещена в рубрике: Задачи. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.