Дан одномерный целочисленный массив размерностью n. сформировать новый массив из элементов исходного, кратных заданному числу а и больших по модулю их индекса. если такие элементы отсутствуют, то выдать об этом сообщение. паскаль
151
258
Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
LeraKruspe21.08.2021 02:17
-
TheHonorGaming08.06.2021 11:52
-
ПолинаСургутская29.10.2022 15:57
-
28ByaKa2823.01.2021 19:41
-
sasha363722.08.2022 08:15
-
goodsmalgirl27.03.2022 14:53
-
efrakoff19.01.2022 05:28
-
danifoxyforevep08iko15.01.2020 11:10
-
12345687654321ytrye07.10.2022 23:54
-
kot29218.04.2022 04:43
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.