hbqhzwtd
?>

кто знает сортировку const m = 100000; var arr: array[1..256] of longint; k, s, j, i: longint; begin randomize; for i : = 1 to m do begin k : = random(256); k: = k+1; arr[k] : = arr[k]+1; end; for i: = 1 to 256 do begin writeln ('массив ', i, ' - ', arr[i]: 4) end; for i : = 1 to 256 do for j : = 1 to m-i do if arr[j] > arr[j+1] then {тут ошибка} begin s : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = s end; write ('отсортированный массив: '); for i : = 1 to 256 do write (arr[i]: 4); end.

Информатика

Ответы

mary---jane49
Заменить строку во вложенном цикле for j := 1 to m-i do  на строку  for j:=1 to 256-i do
m = 100000 - поэтому выход за границы массива.
anastasiavilina

Интернет всемирная глобальная компьютерная сеть.

World Wide Web - Всемирная паутина:сетевой сервис, поддерживающий гипертекстовое пространство Интернета.

Web -страница - отдельный документ W W W.

Web - сервер - компьютер в сети Интернет, хранящий Web-страницы и соответствующее программное обеспечение для работы с ним.

Web - сайт- совокупность тематически связанных Web - страниц.

Гипермедия-система гиперсвязей между мультимедиа документами.

Web - браузер-клиент-программа для работы пользователя с W W W.

Киберпространство совокупность мировых систем телекоммуникаций и циркулирующей в них информации

partners
1000 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*0 = 8 + 0 + 0 + 0 = 8
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0110 = 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 0 + 4 + 2 + 0 = 6
0001 = 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 0 + 0 + 0 + 1 = 1
0101 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 0 + 4 + 0 + 1 = 5
0100 = 2^3*0 + 2^2*1 + 2^1*0 + 2^0*0 = 0 + 4 + 0 + 0 = 4
1001 = 2^3*1 + 2^2*0 + 2^1*0 + 2^0*1 = 8 + 0 + 0 + 1 = 9

Если это одно большое число, то вот так

1000000101100001010101001001 = 2^27*1 + 2^26*0 + 2^25*0 + 2^24*0 + 2^23*0 + 2^22*0 + 2^21*0 + 2^20*1 + 2^19*0 + 2^18*1 + 2^17*1 + 2^16*0 + 2^15*0 + 2^14*0 + 2^13*0 + 2^12*1 + 2^11*0 + 2^10*1 + 2^9*0 + 2^8*1 + 2^7*0 + 2^6*1 + 2^5*0 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*0 + 20*1 = 134217728 + 0 + 0 + 0 + 0 + 0 + 0 + 1048576 + 0 + 262144 + 131072 + 0 + 0 + 0 + 0 + 4096 + 0 + 1024 + 0 + 256 + 0 + 64 + 0 + 0 + 8 + 0 + 0 + 1 = 135664969

^ - Возведение в степень

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

кто знает сортировку const m = 100000; var arr: array[1..256] of longint; k, s, j, i: longint; begin randomize; for i : = 1 to m do begin k : = random(256); k: = k+1; arr[k] : = arr[k]+1; end; for i: = 1 to 256 do begin writeln ('массив ', i, ' - ', arr[i]: 4) end; for i : = 1 to 256 do for j : = 1 to m-i do if arr[j] > arr[j+1] then {тут ошибка} begin s : = arr[j]; arr[j] : = arr[j+1]; arr[j+1] : = s end; write ('отсортированный массив: '); for i : = 1 to 256 do write (arr[i]: 4); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

nebo2020
yatania-popovich7
praktikadok
mshelen732
lenalevmax7937
larisau41
Vitalik6928
RozaAsadullina
Pona4ka93
Veronika1270
Yurevich1291
BelozerovaGeller648
yyyaga
gurina50
tefdst