Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Kurtynau
15.01.2023 00:55 •
Информатика
Задать массив m(12) случайными числами от 9 до 54. увеличить на 5 элементы массива, кратные 3. увеличить на 5 элементы массива, кратные 3, стоящие на четных местах.
Показать ответ
Ответ:
kristavikown6tn
04.10.2020 09:06
Var
a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
begin
a[i]:=random(45)+9;
write(a[i]," ");
end;
writeln();
for i:=1 to 12 do
begin
if ((a[i] mod 3)=0) and ((i mod 2)=0) then
a[i]:=a[i]+5;
if ((a[i] mod 3)=0) then
a[i]:=a[i]+5;
write(a[i]," ");
end;
end
0,0
(0 оценок)
Популярные вопросы: Информатика
ВыберитеНик976476
21.05.2020 12:19
Написать программу, которая находит и выводит наименьшее из 3 выведенных чисел в PASCAL...
вика3875
13.12.2020 18:22
До якої групи належать наведені моделі у класифікації за подання: а) список учнів вашого класу з відомостями про кожного; б) іграшкова залізниця; в) макет шкільного будинку; г) план...
umida9501
13.01.2020 18:23
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности,...
паро8
24.04.2020 00:46
Объект, который служит для хранения информации....
anechkasun1
24.04.2020 00:46
Какие бывают системные устройства и периферийные устройства и их функции....
RenoGant
24.11.2022 08:24
Как включить компьютер...
Мижоп
19.11.2022 22:14
составить таблицу истинности для логического выражения: A/\B/\(A/\B\/C)\/A/\B...
alenakoryakovaa
05.06.2022 07:31
Составьте предложения со сущ в именетмльнтом и винительном...
228665123
05.06.2022 07:31
1)катер двигается со скоростью 30 км/ч. какой путь он пройдёт за 3 часа? а) 3км б) 10км в) 90 км г) 30 км д) 33 км 2) комбайн едет прямо по равную полю. какие детали комбайна движется...
kerikan
05.06.2022 07:31
Пробуйте свои силы. напишите басню(но не с интернета)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do
begin
a[i]:=random(45)+9;
write(a[i]," ");
end;
writeln();
for i:=1 to 12 do
begin
if ((a[i] mod 3)=0) and ((i mod 2)=0) then
a[i]:=a[i]+5;
if ((a[i] mod 3)=0) then
a[i]:=a[i]+5;
write(a[i]," ");
end;
end