Ответы на вопрос:
Const n=20; var a: array[1..n] of integer; i,j,t,x,i1,i2: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(21); write(a[i],' ') end; writeln; for i: =1 to n-1 do for j: =1 to n-i do if a[j]< a[j+1] then begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end; writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; write('x = '); readln(x); i1: =1; i2: =n; repeat i: =(i1+i2) div 2; if a[i]> x then i1: =(i1+i2) div 2+1; if a[i]< x then i2: =(i1+i2) div 2-1; until (a[i]=x)or(i1> i2); if a[i]=x then begin writeln('искомый(ые) номер(а) элемента(ов): '); while (i> 0)and(a[i]=x) do i: =i-1; i: =i+1; while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end; end else writeln('элемент не найден'); writeln; end. пример: исходный массив: 15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12 отсортированный массив: 18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1 x = 10 искомый(ые) номер(а) элемента(ов): 8 9 10
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
TaPo4оК28.08.2021 16:56
-
mtrololo0904.06.2021 10:56
-
bsvetlana76027.02.2021 18:28
-
mirnayamilena08.07.2022 06:00
-
ДимаБум14.07.2022 22:17
-
LizaS040409.09.2021 02:15
-
Христя201708.03.2020 02:15
-
TanyaSha30019.10.2022 15:39
-
Усенька07.04.2023 18:32
-
Kisha1234514.06.2023 01:43
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.