помогите решить информатику qbasic

...
for (int i=0; i<arr_size;>==0)
break;
if (i%2==0)
arr*=2;
else
arr-=1;
...
(Примерно так будет на C++)

Сам синтаксис QB не помню но алгоритм таков.
1. Деоаешь цикл до n-ного элемента.
2. Проверяешь является ли число 0 если да то все если нет то продолжаешь.
2.1 Проверяешь число на четность, т. е. делится ли она на 2 без остатка вроде бы было так i%2==0, если да то *2 если нет то -1 и все.

dim a(100) //описываем массив
for i=1 to 100
a(i)=1+int(rnd*100) //заполняем числами от 1 до 100
next i

for i=1 to 100 //и прогоняем задачу
if a(i)=0 then exit for // вообще уже все позабыл, но кажись цикл прерывается именно так
if a(i)%2=0 then a(i)=a(i)*2 else a(i)=a(i)-1
next i