|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.01.2018, 09:01 | #1 |
Регистрация: 18.11.2017
Сообщений: 5
|
сортировка массива
Помогите исправить код, так чтобы сортировка начиналась с элемента главной диаганали, а не со следущего элемента:
const n=5; var i,j,k,m,z:integer; p:array[1..n,1..n] of integer; begin Randomize; For i:=1 to n do begin For j:=1 to n do begin p[i,j]:=Random(21); Write(p[i,j]:3,' '); end; Writeln; end; Writeln; For k:=1 to n do begin j:=1; Repeat m:=p[k,j]; For i:=j+1 to k-1 do If m<p[k,i] then m:=p[k,i]; For i:=j to k-1 do If m=p[k,i] then begin z:=p[k,i]; p[k,i]:=p[k,j]; p[k,j]:=z; Inc(j); end; Until j>=k-1; end; For i:=1 to n do begin For j:=1 to n do Write(p[i,j]:3,' '); Writeln; end; Readln; end. Последний раз редактировалось os23; 27.01.2018 в 12:01. |
27.01.2018, 10:00 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Форматировать текст проги надо и выделять ее тэгами # , а то читать это - никакого желания.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Быстрая сортировка(сортировка Хоара). Сортировка фрагмента массива [C++] | druger | Помощь студентам | 0 | 20.04.2012 15:49 |
Сортировка массива. | Soeth | Помощь студентам | 1 | 20.02.2012 10:48 |
Сортировка массива | Eldrich | JavaScript, Ajax | 0 | 16.10.2011 22:38 |
Сортировка массива методами предсортировки и слияния, и пирамидальная сортировка. | lenny_24 | Помощь студентам | 2 | 17.04.2011 18:57 |