кто знает сортировку 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.

manawer    2   18.07.2019 16:20    2