Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kamillionela
13.10.2020 18:58 •
Информатика
Дан одномерный массив n целых чисел. заменить в данной последовательности чётные элементы на их удвоение.
Показать ответ
Ответ:
Мастер002
03.10.2020 08:09
Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
spiner21
19.11.2020 12:33
Отвечаем на вопросы 1. Что означает ввод данных? 2. Что означает вывод данных? 3. Какими буквами обозначаются переменные?...
Katri1921
03.07.2022 03:12
ПИТОН 1. Прочитайте последовательность целых чисел. Выведите список, в котором на первом месте будет стоять максимум последовательности, а потом будут идти все остальные числа...
roma6279
09.07.2020 07:55
Як називаються повідомлення, зафіксовані на певному носії та представлені на зручному для опрацювання вигляді?...
gfg9y
03.03.2021 15:34
КроссвордПрограммное управление работой компьютера....
DanielKanafiev
27.01.2020 11:09
С кругами эйлера6. В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «», а для обозначения логической операции «И» — символ «&»....
greenlyte09
01.03.2022 13:26
У чому особливість установлення середовища програмування Thonny на персональний комп ютер...
Denis12o9
15.04.2021 05:11
в таблице f представлены данные о количестве голосов поданных при голосовании за лучший из 10 представленных на конкурс проектов по информатике в 9-м б классе ( F[1]- количество...
ushanoval
09.11.2022 15:06
Практическая работа 1) Вывести таблицу умножения на 9 2) Заполните массив случайными числами в интервале [0,100] Ребят в питоне код надо сделать ваши...
vstef
22.08.2022 11:50
найдите наименьшее число, большее 500, запись которого в шестнадцатеричной системе оканчивается на «37». ответ запишите в десятичной системе счисления....
MagicalBiology
07.05.2022 08:35
Кто назвал Александра 3 хранителем нордных денег...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.