Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ksenia1234567890123
04.07.2020 19:56 •
Информатика
Нужно составить массив и все четные переменные в нем заменить на нули! при этом колличество чисел в массиве должно вводится с клавиатуры!
Ответ:
NananaAD
14.06.2020 09:14
Begin
Read(n);
For i:=1 to n do
Begin
Read(a[i]);
a[i]:=(i mod 2)*a[i];
End;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
далекоотсолнца
05.06.2022 16:58
Какие существуют программные и аппаратные защиты информации?...
vereshchako041
11.06.2022 07:56
Напишите программу которая печатает ваше имя в рамке из звездочекпаскальпример *витя*...
nik123580
21.09.2020 08:41
Мальчик учит стихотворение из 40 строк. Чтобы запомнить первую строчку, ему понадобилась 1 минута. На каждую следующую он тратит на 10% времени больше, чем на предыдущую....
camaroSSdodge
01.07.2020 02:00
Повесть тарас бульба как произведение(сочинение)...
Sunshinesun88
01.07.2020 02:00
Мне нужно составить предложения в pr.s, pr.c, p.c, f.s, pr.perfect как можно быстрее...
konfetabox
01.07.2020 02:00
Какой город был столицей руси в 13 веке?...
yurijefimow
01.07.2020 02:00
Выберите жанр, не относящийся к устному народному творчеству 1. сказка 2. народная песня 3. роман 4. анекдот...
pankewitchkati
01.07.2020 02:00
4целых две пятых разделить на х равно 8 целых четыре пятых разделить на 2 целых одну вторую...
Nikatysh
01.07.2020 02:00
Пож. как решать? найдите a+5b+22/a+b+11, если a/b=3....
1Sofya1
01.07.2020 02:00
Один круг лыжной трассы состоит из 8 км подъема и 6 км спуска. при спуске скорость увеличивается на 2 км\ч, а при подъеме наоборот. 1) какова собственная скорость лыжника...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Begin
Read(n);
For i:=1 to n do
Begin
Read(a[i]);
a[i]:=(i mod 2)*a[i];
End;
End.