Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2018, 09:01   #1
os23
 
Регистрация: 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.
os23 вне форума Ответить с цитированием
Старый 27.01.2018, 10:00   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,529
По умолчанию

Форматировать текст проги надо и выделять ее тэгами # , а то читать это - никакого желания.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Быстрая сортировка(сортировка Хоара). Сортировка фрагмента массива [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