Дан линейный массив a[1..n], содержащий целые числа. найти длину наименьшего отрезка числовой прямой, содержащего все положительные элементы массива. pascal
167
419
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin var s: =arrrandom(readinteger('n=',99).println.where(x-> x> 0).orderby(x-> x); writeln('длина отрезка равна ',s.last-s.first) end.
Const k = 13; var a: array[1..k] of integer; i,mn,mx: integer; begin write('исходный массив: '); for i: = 1 to k do begin a[i]: =random(21)-10; write(a[i],' ') end; writeln; mn: =a[k]; mx: =a[k]; for i: = 1 to k-1 do begin if (a[i]< mn)and(a[i]> 0) then mn: =a[i]; if (a[i]> mx)and(a[i]> 0) then mx: =a[i]; end; writeln('искомая длина: ',mx-mn); end.
// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var n: =readinteger('введите натуральное число'); var r: =n.tostring.pairwise.where(t-> t[0]=t[1]).any; if r then writeln('есть две одинаковые цифры, стоящие рядом') else writeln('нет двух одинаковых цифр, стоящие рядом') end. пример введите натуральное число 245005 есть две одинаковые цифры, стоящие рядом
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Milena001120.03.2023 08:16
-
liliannaklochko25.01.2021 20:35
-
Маша1057830.06.2023 19:55
-
olgagavrikova3121.05.2022 05:02
-
aidaAim07.05.2020 11:05
-
мага39819.06.2021 16:38
-
kravchenkomiss02.06.2022 11:42
-
Ivangevorgyan07.05.2022 07:20
-
Zazoo1236530.10.2022 18:06
-
Лапулька12305.06.2020 04:03
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.