Дан одномерный массив , заполненный случайным образом десятью числами из диапазона от 0 до 100. найтисамую длинную послпоследовательность чисел, по возрастанию. вывести ее и ее длину на экран.
273
479
Ответы на вопрос:
Const n=10; var a: array[1..n] of integer; i,_start,_end, startind, endind: integer; begin randomize; write('исходный массив: '); _start: =-1; _end: =-1; startind: =-1; endind: =-1; for i: =1 to n do begin a[i]: =random (0,100); write(a[i],' '); end; writeln; for i: =2 to n do begin if a[i]> a[i-1] then if _start > -1 then _end : = i else begin _start : = i-1; _end : = i; end else begin if (_start > -1) and ((endind - startind) < (_end - _start)) then begin startind : = _start; endind : = _end; end; _start : = -1; _end : = -1; end; end; if startind > -1 then begin writeln('длина диапазона: ', (endind-startind+1)); write('значения из диапазона: '); for i: =startind to endind do write(a[i],' '); end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
timahipoDrakeylol21.04.2020 14:55
-
olegvovchuk1131.03.2022 17:43
-
oksana138208.05.2023 03:27
-
anisimovaanech27.04.2022 11:34
-
Акируя09.09.2022 00:07
-
andbliev26.02.2021 02:34
-
Snikalka13.12.2022 20:56
-
ЛизаБугакова23.02.2023 14:06
-
dimabolnygin29.11.2022 06:17
-
SanyaLe911.10.2021 06:34
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.