Из 15цифр получить не чётные числа(информатика qbasik)CРочно помогите.............. 5 CLS//10 REM МАСИВ//20 DIM A(15)//40 INPUT A(I)//50 NEXT I//60 PRINT//70 FOR I=1 TO 15 STEP 2//80PRINT A(I);" ";//90 NEXT I//110 PRINT//120 REM НЕЧЁТНОЕ ЧИСЛО//134 FOR I=1 TO 15//135 PRINT//140 NEXT I//150 END{{{от 1до15 всё правельно выдаёт...потом когда начинаю с 2проверять=2,3,4,5,6,7,8,9,10,11,12,13,14,15,1 мне 2выдаёт как нечётное
а если в 70шаге место 1 поставить 2 всё правильно, зато от 1-15 не проходит потом(ПОМОГИТЕ