Заменить все нечётные элементы с чётными индексами на нули

Задайте массив из 10 элементов с помощью датчика случайных чисел. Заменить все нечётные элементы с чётными индексами на нули. Выведите на экран исходный и полученный массив.

DIM a(10)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR i=1 TO 10
a(i)=INT(RND*10)+1
PRINT a(i);
NEXT
PRINT
FOR i=1 TO 10
IF a(i) MOD 2<>0 AND i MOD 2=0 THEN a(i)=0
NEXT
PRINT"novyj massiv"
FOR i=1 TO 10
PRINT a(i);
NEXT

автор: кот Бегемот