Ответы на вопрос:
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
Популярно: Информатика
-
efimovap1703.07.2020 16:35
-
RenoGant16.09.2021 17:03
-
DeathStroke1125.09.2021 13:31
-
Bobskromnaysh1215.01.2022 00:34
-
andreybrake10.08.2022 03:51
-
AlenaRayskaya07.12.2022 06:31
-
ИльяМамедов212.08.2020 06:11
-
Slendergirl34504.10.2020 00:05
-
SUPERMOZGgg14.11.2020 00:31
-
Ctypakelizaveta29.05.2020 04:26