Ответы на вопрос:
Const n = 70; var a: array[1..n] of integer; i, k: integer; begin for i: =1 to n do readln(a[i]); k : = 0; for i: = 1 to n do if a[i] mod 3 = 0 then inc(k); writeln(k); end.
// pascalabc.net 3.0, сборка 1128 begin writeln('исходный массив'); var a: =arrrandom(70,1,1000).println(','); writeln('количество элементов, кратных 3: ', a.where(x-> x mod 3=0).count) end. тестовое решение: исходный массив 928,188,299,147,61,366,787,358,715,625,517,552,522,238,569,806,342,808,71,400,176,504,525,242,194,126,595,883,78,627,317,966,478,671,557,665,734,408,665,377,430,2,232,125,161,801,561,541,341,172,273,179,345,584,181,424,663,58,953,935,771,905,280,89,309,552,74,852,682,904 количество элементов, кратных 3: 21
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Milena20051618.08.2020 08:26
-
лорею17.08.2021 09:27
-
Nahchik21.10.2020 05:18
-
kristinabelousova00509.10.2022 15:18
-
Ксюха1211103.08.2022 01:32
-
rodion1234567895828.02.2021 20:17
-
wasgf07.06.2020 11:33
-
Kisaaaa11110.03.2021 13:33
-
alekskholod0131.12.2022 05:58
-
Slee128.11.2020 16:12
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.