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

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

Как заменить массиве из 10 целых чисел все чётные элементы нулями? Как бы сделать так, чтобы нули заменили чётные индексы массива, а не так как у меня получилось. Да ещё бы и исходный массив печатался?

QBasic/QuickBASIC

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

QBasic/QuickBASIC

1	5 6 0 3 7 0 1 8 0 2 9 0 3 4 0

echs · 05.01.2017, 11:17

Petro29
Ваши ошибки
1. Вы использовали переменную N, но никакого значения
ей не присвоили, то есть она была равна 0. Вот и результат
2. Вы проверяли на чётность индекс массива, а надо было
элемент массива.
3. (это не ошибка) Вы попытались все сделать в одном
цикле, тем самым усложнили себе задачу. Короткий код
часто бывает сложным для понимания.
...
я исправил вашу программу. Проверьте ее на работоспособность

QBasic/QuickBASIC

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

Опции темы