197 / 9 / 3
Регистрация: 30.04.2016
Сообщений: 733
1

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

11.04.2017, 18:23. Показов 727. Ответов 1
Метки нет (Все метки)

Заменить в массиве из 10 целых чисел все чётные элементы нулями и
вывести исходный и полученный массивы на экран.
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
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
2
3
4
5
6
7
8
9
10
11
5
5    6
0    3
3    7
7    1
1    8
0    2
0    9
9    3
3    4
0
В двух циклах массив печатается в одну строку. А при одном цикле (как здесь) массив
печатается в столбик, да ещё и две лишние пятёрки в начале 1-го столбика.
Почему так. Вроде бы всё верно.
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.04.2017, 18:23
Ответы с готовыми решениями:

В одномерном массиве D, состоящем из 12 целых чисел, все положительные нечетные элементы заменить нулями
Пожалуйста, нужна помощь. Не понимаю как делать эти программы в Delphi 7. 1) В одномерном массиве...

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

Заменить в массиве все четные элементы нулями
Всем привет! Как вы по названию уже поняли мне нужно заменить все четные числа в массиве на нули и...

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

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

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

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

В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным элементом
В одномерном числовом массиве D все четные элементы заменить нулями, остальные - максимальным...

Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2;
Дан массив целых чисел из 50 элементов. Все элементы кратные 10 заменить 0; Все нечетные...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru