Двумерный массив help

[Imperceptible]

Путём перестановки элементов квадратной матрицы добиться того,чтобы её максимальный элемент был в левом верхнем углу, следующий по велечине впозиции (2,2) следующий (3,3) и т д
Заполнить так всю главную диагональ.

Получается только так: вся главная диагональ забивается максимальным элементом и всё, хоть и делал обнуление максимального после его нахождения и помещения в нужную позицию

Использовал вспомогательный массив, хоть это и не желательно (ведь требуется перестановкой изменить его ), иначе вообще нет идей...подскажите что делать??

[Time]

Один из вариантов:
Пусть дана матрица с n строками и n столбцами.
Надо перебрать все элементы матрицы и найти максимальный.
Сначала перебираем все элементы двухмерной матрицы кроме тех которые стоят по диагонале, находим максимальный. Далее продолжаем искать максимальный перебором только тех элементов, которые стоят по диагонале, начиная с k-ого (k в начале равно 1). Получили максимальный элемент матрицы (Запомнили не сам элемент а его координаты i-тою и j-тою по строке и постолбцу). Переставляем местами этот элемент с элементом, который стоит в k-той строке и k-ом столбце. Далее увеличиваем k на единицу. Повторяем всё выше сказанное n раз.
И всё готово!

[Imperceptible]

Что-то не получается у меня вышесказанное закодировать...
Очень прошу код если можно, тупняк у меня.

[Alar]

Алгорит достаточно прост.
1) Загоянешь символы в одномерный массив
2) Любым алгоритмом сортировки производишь сортирование символов
3) Перегон осортированного одномерного массива в двумерный массив - матрицу.

[Imperceptible]

О, спасибо, а когда обратно загоняешь в двумерный на стадии 3) как заполнив сначала диагональ сделать так, чтобы потом пошло заполнение всего остального кроме диагоналии?

[Alar]

Сообщение от Imperceptible

О, спасибо, а когда обратно загоняешь в двумерный на стадии 3) как заполнив сначала диагональ сделать так, чтобы потом пошло заполнение всего остального кроме диагоналии?

Наверное ты уже всё сделал, кроме заполнения. Так - диагональ заполнил.делаешь два цикла, один в другом. И проверяешь, если это диагональ, то добавлять не надо.

посмотри набросок, может поможет.


счётчик:=колличество клеток в диагонали+1;
for i:=1 то длина do
begin
for j:=1 то длина do
begin
if i=j tnen goto a;
двухмерныймассив[i,j]:=одномерныймассив[счётчик];
счётчик:=счётчик+1;
a:
end;
end;

[Imperceptible]

А если в виде процедуры оформить это, в описании процедуры можно метки использовать?

[Time]

a - двухмерная матрица, n - количество строк

maxi := 1;
maxj := 1;
max := a[1,1];
for k := 1 to n do begin
for i := 1 to n do
for j := 1 to n do
If (a[i,j] > max) and (i <> j) then
begin
maxi := i;
maxj := j;
max := a[i,j];
end;
for i := k to n do
if a[i,i] > max then
begin
maxi := i;
maxj := i;
max := a[i,i];
end;
ram := a[maxi,maxj]; a[maxi,maxj] := a[k,k]; a[k,k] := ram;
end;

В моей проге используется именно алгоритм перестановки без вспомогательного массива. Если тебе это не обязательно, то можешь сделать так как сказал Alar

[Alar]

Сообщение от Imperceptible

А если в виде процедуры оформить это, в описании процедуры можно метки использовать?

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

[Imperceptible]

А вот это, с использованием буферной памяти, какраз то что нужно!
Благодарю, грамотный ход.