Ответы на вопрос:
Const n=20; var a: array[1..n] of integer; i,i1,i2,x: integer; begin randomize; a[1]: =random(10); write(a[1],' '); for i: =2 to n do begin a[i]: =a[i-1]+random(10); write(a[i],' '); end; 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. пример: 5 6 14 15 15 22 30 36 45 45 50 56 60 64 67 76 84 92 99 101 x = 15 искомый(ые) номер(а) элемента(ов): 4 5
Популярно: Информатика
-
1Али04.03.2023 14:19
-
Thanks2y06.02.2021 02:49
-
dashkurko1das20.07.2020 05:32
-
Рюзаки116.06.2022 03:06
-
Неизвестныйлунтик17.10.2022 19:40
-
Uliana1pa23.10.2022 10:23
-
51bai01.04.2022 05:08
-
888Blond07.03.2020 00:29
-
PolinaRa161020071029.11.2022 15:27
-
Эхорит21.06.2021 22:35