Написать программу в бейсике для этой задачи: Заполнить массив а(15) таким образом, чтобы нечетные были равны нулю, а четные единице.

Самое простое, заполнить только четные элементы, т.к. в нечетных по умолчанию уже ноль стоит))DIM A(15)FOR I = 2 TO 15 STEP 2    A(I) = 1NEXT IЕсли нужно увидеть массив, можно дополнить блоком выводаFOR I = 1 TO 15    PRINT A(I)NEXT IНу, а если явным образом вписывать нули, то тогда такDIM A(15)FOR I = 1 TO 15 STEP 2    A(I) = 0NEXT IFOR I = 2 TO 15 STEP 2    A(I) = 1NEXT I