Помогите плз с сортировкой матрицы, с сортировкой в заданом диапазоне индексов Опции

[-Dimon-]

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

[мисс_граффити]

как отсортировать?
по строкам, столбцам, отдельным элементам? по убыванию, возрастанию? что сравнивать - суммы, произведения, наибольшие/наименьшие элементы?
телепаты на новогодних каникулах.

[Dimon-fx]

Сортировать по строкам, по убыванию, методом обмена, чтобы все елементы сортировались в заданом диапазоне индексов. Ввести диапазон и по этому диапазону оно должно сортировать.

[мисс_граффити]

напечатай по-человечески задание! как тебе его дали, дословно.
или приведи пример: что на входе, что получится на выходе.

З.Ы. обменных сортировок много. можно пользоваться любой?

[Dimon-fx]

Ниче что по украински?

Відсортувати одновимірний масив за спаданням методом обміну.
Всі елементи масива, що знаходяться в заданому діапазоні індексів.

[volvo]

Ниче, если я на Lisp-е тебе программу приведу? Или на Forth-е?

P.S.

одновимірний масив

как-то не вяжется с

Помогите плз с сортировкой матрицы

Сообщение отредактировано: volvo - 26.12.2006 17:46

[Dimon-fx]

[мисс_граффити]

volvo, эт я виновата. Попросила дословно
Dimon-fx

Program Bubble;
uses crt;
const n=10;
var ar: array[1..n] of integer;
i, j, T, nachalo, konec: Integer;
Begin
clrscr;
randomize;
for i:=1 to n do
  begin
  ar[i]:=random(10);
  write(ar[i],' ');
  end;
writeln;
writeln('vvedite granicy');
readln(nachalo);
readln(konec);
For i := nachalo To konec Do
  For j := konec DownTo i+1 Do
    If ar[Pred(j)] < ar[j] Then
      Begin
      T := ar[Pred(j)];
      ar[Pred(j)] := ar[j];
      ar[j] := T
      End;
for i:=1 to n do
  write(ar[i],' ');
End.

Допиши сам проверку, чтобы nachalo<konec
nachalo,konec<n
nachalo,konec>1

[Dimon-fx]

ОК! СПАСИБО большое мисс_граффити!!!