0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16

Вывести нули массива, стоящие на чётных местах

24.10.2011, 22:27. Показов 3065. Ответов 37
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заполнить массив из 10 элементов, числами в диапозоне от 10 до 60. Вывести нули, стоящие на чётных местах. Накону 4 или 5 по информ.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
24.10.2011, 22:27
Ответы с готовыми решениями:

Вывести на экран все элементы массива, стоящие на чётных местах
Ребята, помогите пожалуйсто, не могу решить задачки, а очень срочно нужны( завтра сдавать=(( 1) Дан массив из N элементов. Написать...

Элементы массива, стоящие на чётных местах заменить нулями и вывести элементы получившегося массива на экран
Создать одномерный числовой массив из n элементов. Затем, элементы, стоящие на чётных местах заменить нулями и вывести элементы...

Массив. Вывести сначала элементы, стоящие на чётных местах, затем на нечётных
1)Заполнить одномерный массив вводом с клавиатуры. Определить, является ли элемент с номером n(n вводится с клавиатуры) положительным...

37
Просто хороший человек
 Аватар для sannee
392 / 182 / 24
Регистрация: 26.04.2011
Сообщений: 434
24.10.2011, 23:14
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от d1m0n1 Посмотреть сообщение
Vepsar, да правильно, молодец, а без рандома никак ?
всмысле, что без рандома никак?
0
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:15  [ТС]
sannee, нужно что бы числа по порядку шли, как я писал раньше
0
Просто хороший человек
 Аватар для sannee
392 / 182 / 24
Регистрация: 26.04.2011
Сообщений: 434
24.10.2011, 23:18
ааа. ну может...
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:42
Блин я чет не понял тебе нужно просто вывести готовый массив на экран ?

Добавлено через 32 секунды
с теме же числами ?
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:43  [ТС]
мне нужно что бы вывело все числа от 10 до 60 чтобы на месте чётных стояли 0
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:51
Окау ! панятено
жди)

Добавлено через 4 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array [1..100] of integer;
i:1..100;
begin
for i:=1 to 60 do
begin
    if i mod 2=0 then
                a[i]:=0
        else
        a[i]:=i;
end;
for i:=1 to 60 do
writeln(a[i]);
readln;
writeln;
writeln;
end.
Добавлено через 22 секунды
Опапа))
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:51  [ТС]
обана вот тоже самое но начинается с 10 а не с 1
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:54
xDD wtf ...
0
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:55  [ТС]
Vepsar, ахахахах
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:55
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array [1..100] of integer;
i:1..100;
begin
for i:=10 to 60 do
begin
    if i mod 2=0 then
                a[i]:=0
        else
        a[i]:=i;
end;
for i:=10 to 60 do
writeln(a[i]);
readln;
writeln;
writeln;
end.
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:56  [ТС]
Vepsar, спасибо сам исправилvar
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
a:array [1..100] of integer;
i:1..100;
begin
for i:=1 to 60 do
begin
        if i mod 2=0 then
                a[i]:=0
        else
                a[i]:=i;
end;
for i:=10 to 60 do
writeln(a[i]);
readln;
writeln;
writeln;
end.
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:57
мб так?

Добавлено через 19 секунд
Ок ток я быстрее ))

Добавлено через 37 секунд
,,,, и нет, вы не исправили ))
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:57  [ТС]
а кстати у тя не так а у мя так
вот что у тя:0
0
0
0
0
0
0
0
0
0
11
0
13
0
15
0
17
0
19
0
21
0
23
0
25
0
27
0
29
0
31
0
33
0
35
0
37
0
39
0
41
0
43
0
45
0
47
0
49
0
51
0
53
0
55
0
57
0
59
0
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:58
в первом For-е тоже 1 на 10 нуна поменять ))
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
24.10.2011, 23:59  [ТС]
необязательно
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
24.10.2011, 23:59
Мм нет !!!! у мя нормально !!
1
0 / 0 / 0
Регистрация: 24.10.2011
Сообщений: 16
25.10.2011, 00:00  [ТС]
ну да ладно, Спасибо!!!
0
 Аватар для Vepsar
33 / 32 / 14
Регистрация: 11.08.2011
Сообщений: 158
25.10.2011, 00:01
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a:array [1..100] of integer;
i:1..100;
begin
for i:=10 to 60 do
begin
    if i mod 2=0 then
                a[i]:=0
        else
        a[i]:=i;
end;
for i:=10 to 60 do
writeln(a[i]);
readln;
writeln;
writeln;
end.
Необязательно НО желательно ))

Добавлено через 12 секунд
Нет проблем ))
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.10.2011, 00:01

Упорядочить элементы массива, стоящие на нечётных местах в возрастающем порядке, а на чётных в убывающем
упорядочить элементы массива A(1..N),стоящие на нечётных местах в возрастающем порядке,а на чётных в убывающем. Описать через процедуры...

В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах
В данном массиве поменяйте местами элементы, стоящие на нечётных местах, с элементами, стоящими на чётных местах.

удалите все символы, стоящие на чётных местах
Во введенной строке удалите все символы, стоящие на чётных местах.

Удалить из строки все символы, стоящие на чётных местах
Составить программу, которая удаляет из строки все символы, стоящие на чётных местах.Заранее спасибо.

Проверить, все ли буквы слова Х, стоящие на чётных местах, одинаковы
Строковый тип данных 9. Напишите программу, проверяющую, все ли буквы слова Х, стоящие на чётных местах, одинаковы.


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

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

Новые блоги и статьи
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35".
kumehtar 04.08.2026
С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники).
Hrethgir 04.08.2026
Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701
Argus19 03.08.2026
Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru