Разбиение массива данных

[t116]

Имеется масив данных типа byte с количеством 500 элементов. Нужно из этого массива создать два новых, где в первом — четные элементы исходного массива, а во втором - нечетные.
В итоге должно получится два массива по 250 элементов в каждом.

Как правильно это сделать?

[Amed]

Код: Выделить всё

Dim i As Long

For i = 1 to 499 Step 2
    EvenArray(i \ 2)=Array(i)     ' Четный
    OddArray(i \ 2)=Array(i-1)    ' Нечетный
Next i

[Хакер]

Amed
Array - это функция

[t116]

Amed
Array - это функция

Да?

[GSerg]

Да.

[Amed]

Конечно, это функция
Это такой небольшой тест на профпригодность абонента