Ответы на вопрос:
Const n = 10; var b: array[1..n] of integer; c: array[1..n] of integer; i, a, k: integer; begin //считываем массив b for i: =1 to n do readln(b[i]); //вводим a readln(a); k: =0; for i: =1 to n do //если элемент кратен а и по модулю больше i то if (b[i] mod a = 0) and (abs(b[i]) > i) then begin //увеличиваем k на 1 и присваиваем c[k] a[i] inc(k); c[k] : = b[i]; end; if k = 0 then writeln('таких элементов нет') else for i: =1 to k do writeln(c[k]); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
кратос231518.02.2020 10:25
-
gerasimovna02.01.2021 07:16
-
Милка53453523.05.2022 15:57
-
nadezhdacvoboda21.03.2023 18:50
-
vsalchenkoovhi3626.03.2022 10:21
-
lolii0ikolik16.03.2020 16:05
-
Trinogie23.01.2022 21:02
-
Артём200670618.03.2023 11:09
-
fjjjfg05.02.2021 10:53
-
shansosia05sofisofi08.06.2021 14:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.