Решить программу на pascal abc. с random и : найти количество четных чисел из 20 целых случайных чисел из любого интервала.
207
299
Ответы на вопрос:
Ну функция randomize() создаёт, перемешивает новые рандомные числа, а random() их предоставляет. разных вариаций написания много, я например сделал с массивом, можно в принципе и без него, но с ним лучше т.к. числа хранятся в массиве и их можно выводить в будущем, если это слишком сложно для тебя, то я могу написать программу без использования массива. var i, b: integer; a: array[1..20] of integer; begin randomize(); for i: =1 to 20 do a[i]: =random(0,50); write('из чисел: '); for i: =1 to 20 do begin if i=20 then writeln(a[i]) else write(a[i],', ') end; write('кол-во четных равняется: '); for i: =1 to 20 do if (a[i] mod 2 = 0) then b: =b+1; writeln(b) end . вот выводы программы, которые у меня получились. первый раз: из чисел: 42, 1, 46, 24, 36, 9, 22, 16, 7, 41, 49, 46, 27, 29, 50, 44, 44, 10, 48, 36 кол-во четных равняется: 13 второй раз: из чисел: 5, 16, 16, 27, 1, 48, 46, 45, 46, 13, 21, 18, 24, 45, 14, 13, 33, 14, 21, 30 кол-во четных равняется: 10 третий раз: из чисел: 15, 2, 24, 42, 49, 43, 5, 48, 8, 1, 45, 9, 20, 24, 35, 19, 11, 15, 26, 33 кол-во четных равняется: 8 файл с кодом прикреплю во вложения, спрашивай если не понятна какая-то функция, объясню, дабы ты не стоял в ступоре перед
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Glupuj30.07.2021 08:11
-
Gfdsahjk17.12.2021 12:04
-
popopolka11131.03.2021 18:08
-
Milana111746427.03.2022 20:16
-
malcolmyang03.04.2020 04:41
-
Алисика1119.08.2020 11:39
-
vitay12322.01.2022 04:36
-
7777kby77777777777802.08.2020 14:05
-
ddfdffdf08.02.2020 01:47
-
sasha194814.10.2021 15:23
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.