Из 15цифр получить не чётные числа(информатика qbasik)CРочно помогите.............. 5...

Question

Из 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 не проходит потом(ПОМОГИТЕ

Answer 1

Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.

Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит NEXT, хотя команды FOR до этого не было - ошибка.

Я написал програмку так как я понял с нечетными числами:

CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END