Мне нужно выполнить циклом нц и кц слово информатика а то у меня пишут нет такого !
255
395
Ответы на вопрос:
Напиши нц и кц перед нч например 9 раз не пеши раза а то ошибка будет нашми энтер и пеши вниз; закрасить потом вверх вниз закрасить всё через точку с запетой и всё
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. pascal abc.
Популярно: Информатика
-
avisuale10.04.2022 08:36
-
бека15120.07.2021 06:47
-
silchuk200410.02.2023 14:42
-
niknem11116.05.2021 01:30
-
Kuznezovamargo19.12.2022 19:43
-
KKotya1k06.03.2021 14:32
-
Даня168112.01.2021 01:12
-
АртурСоколов21.04.2022 05:00
-
валериякотик1910.04.2021 18:45
-
OppLeech09.03.2021 21:49