Заменить в массиве из 10 целых чисел все чётные элементы нулями

@Petro29 · Регистрация: 30.04.2016

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

QBasic/QuickBASIC

CLS
DIM A(10)
DATA 5,6,3,7,1,8,2,9,3,4
    FOR i = 1 TO 10
        READ A(i)
        PRINT A(i);
    PRINT
IF A(i) MOD 2 = 0 THEN A(i) = 0
    PRINT A(i);
NEXT i

На выходе:

QBasic/QuickBASIC

В двух циклах массив печатается в одну строку. А при одном цикле (как здесь) массив
печатается в столбик, да ещё и две лишние пятёрки в начале 1-го столбика.
Почему так. Вроде бы всё верно.

echs · 11.04.2017, 19:43

Petro29
Вы лучше задайте ДВА цикла и будет все верно.
А то у вас ОДИН цикл и что получается?
1. Считывается и печатается сначала первый элемент массива
2. Он (этот первый элемент) проверяется на четность и если
четный, то обнуляется и ВНОВЬ печатается.
...
вы получили то, что и написали в программе.
...
примечание
Petro29,
Вы создаете себе работу, пытаясь все засунуть в один
цикл. Возможно вам это интересно! Я не против этого.
Каждый идет своей дорогой, делает свои ошибки.
Удачи вам!!

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	11.04.2017, 19:43	2
	Petro29 Вы лучше задайте ДВА цикла и будет все верно. А то у вас ОДИН цикл и что получается? 1. Считывается и печатается сначала первый элемент массива 2. Он (этот первый элемент) проверяется на четность и если четный, то обнуляется и ВНОВЬ печатается. ... вы получили то, что и написали в программе. ... примечание Petro29, Вы создаете себе работу, пытаясь все засунуть в один цикл. Возможно вам это интересно! Я не против этого. Каждый идет своей дорогой, делает свои ошибки. Удачи вам!! 0

Опции темы