[bullet92820]

Помогите пожалуйста отсортировать массив
1 2 3 4 5 6 7 8
9 10........ 8 столбцов 8 строк
по строкам вверх вниз, по столбцам вверх вниз и по диагонали

[bullet92820]

помогите кто чем может плиз!!!!!!!!!!!!

[lmikle]

Поподробнее.
Какие правила сотрировки? Т.е. как я должен сравнивать строку со строкой и столбец со столбцом.

[bullet92820]

по срокам сверху вниз и снизу вверх, по строкам слева направо и наоборот, как то так ничего больше в задании не указано(

[lmikle]

Ну, что в задании у тебя указано, мне как то без разницы. Вопрос в том, как ты понял задание. Вот смотри. Что значит "по строкам сверху вниз"? Это значит, что надо переставить строки в порядке возрастания/убывания первого элемента? Или сортировать по сумме элементов строки? Или еще как? Теперь "по строка слева направо и наоборот". Что это занчит? Надо отсортировать все строки (т.е. элементы внутри каждой строки)? Или что-то еще?
Так что иди сначала к преподу и выясняй все эти вопросы.

ЗЫ. Кстати, наврядли кто будет тебе тут нахаляву делать все задание. Так что готовься делать сам и спрашивать тут конкретику. Посказка тебе - тебя спасут циклы и сортировка пузырьком

[NIch]

Сортировка пузырьком...

Код:

var
 Arr : array of array of word;
 i, j, n, m, t: word;
begin
 SetLength(Arr, n,m);//Установить размер массива
 //Сортировка строк
 for j:=0 to n-1 do
  for i:=0 to n-j-1 do
   if Arr[i, m] > Arr[i+1, m] then
   begin
    t := Arr[i, m];
    Arr[i, m] := Arr[i+1, m];
    Arr[i+1, m] := t;
   end;
 //По аналогии делается сортировка столбцов
 for j:=0 to m-1 do
  for i:=0 to m-j-1 do
   if Arr[n, i] > Arr[n, i+1] then
   begin
    t := Arr[n, i];
    Arr[n, i] := Arr[n, i+1];
    Arr[n, i+1] := t;
   end;