заполнение

[Guest]

помогите пожааааааалуйста!!!!!!!!!!!!!
задача по Заполнению: Заполнить и напечатать вектор А размернсти n по правилу:

 

[Guest]

dim i as integer
dim k as integer
i=1
k=1
do while i<>n+1 //или n, в зависмости от ситуации
if k=1 then
A(i)=B(i)
k=0
else
A(i)=C(i)
k=1
endif
i=i+1
loop

Это само заполнение
В функцию сама встрой
синтаксиса языка особо не знаю, так что написал через странное место....
Можно еще через проверку остатка от деления на 2
но лень искать нужный оператор