Pascal abc: дана последовательность чисел, среди которых имеется несколько нулей. вывести на печать (построчно) числа стоящие до 1-го нуля и числа стоящие между нулями. пример: входные данные 10 1 0 1 2 3 0 15 4 0 7 выходные данные 1 1 2 3 15 4

274

392

Посмотреть ответы 2

Ответы на вопрос:

Ferencvik

Информатика

4,4(98 оценок)

Const n = 50; {максимальное количество чисел в последовательности} t = -77; {число-ограничитель, означающее конец ввода} type ta = array[1..n] of integer; var a: ta; {массив членов последовательности} az: ta; {массив, содержащий номера нулей в последовательности} kz: integer; {количество членов в массиве az} i, iz, p, n1, n2: integer; flag: boolean; begin {вводим числа и сразу же отслеживаем номера нулей в последовательности} writeln('вводите последовательность чисел, окончание ввода по -77'); i : = 0; iz : = 0; repeat read(p); if p < > t then begin i : = i + 1; a[i] : = p; if p = 0 then begin iz : = iz + 1; az[iz] : = i; end end until p = t; kz : = iz; writeln('вывод последовательностей'); {1. до первого встреченного нуля} for i : = 1 to az[1] - 1 do write(a[i], ' '); writeln; {2. остальные промежутки} for iz : = 1 to kz do begin for i : = az[iz] + 1 to az[iz + 1] - 1 do write(a[i], ' '); writeln; end end. тестовое решение: вводите последовательность чисел, окончание ввода по -77 1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77 вывод последовательностей 1 2 3 5 6 7 10 11 12 13

Сасаев

Информатика

4,4(56 оценок)

У Меня тако было крч просто перезагрузки интернет и не включай его 5 6 минут потом все пройдет

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.