Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Ответ
 
Опции темы
Старый 27.01.2018, 10:01   #1
os23
 
Регистрация: 18.11.2017
Сообщений: 5
Репутация: 10
По умолчанию сортировка массива

Помогите исправить код, так чтобы сортировка начиналась с элемента главной диаганали, а не со следущего элемента:

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 в 13:01.
os23 вне форума   Ответить с цитированием
Старый 27.01.2018, 11:00   #2
digitalis
Участник клуба
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 967
Репутация: 365
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


20:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru