Элементы выше побочной диагонали по возрастанию.

[rwss gle]

Привет всем! Я начинающий программист) Как решать вот это задание: Элементы выше побочной диагонали по возрастанию. Помогите, пожалуйста, решать по паскалю(((((

[Astorius]

Задание по подробнее

[Акоб]

Элементы выше побочной диагонали по возрастанию.

Что это значит?

[rwss gle]

Вот, короче, пример::
21 87 15 1
9 10 1 7
41 1 31 16
1 93 7 24

Результат должен таким:
9 10 15 1
21 41 1 7
87 1 31 16
1 93 7 24

[p51x]

Берете элеементы выше побочной диагонали, сортируете их и записываете обратно... что не понятно?

[rwss gle]

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

Берете элеементы выше побочной диагонали, сортируете их и записываете обратно... что не понятно?

Но я тут запутался...

for i:=1 to n-1 do
 begin
  for j:=1 to n-1 do
    for k:=j+1 to n do
      if a[n-j+1,j]>a[n-k+1,k] then 
begin
temp:=a[n-k+1,k];
a[n-k+1,k]:=a[n-j+1,j];
a[n-j+1,j]:=temp;
end;
 end;

Это уже на побочной диагонали, а нужно выше. Как, подскажите, пожалуйста! =(


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[psycho-coder]

http://programmersforum.ru/showthread.php?t=70310 тут можно много чего найти по Вашему вопросу

[rwss gle]

Решаю, решаю, решаю, но никак. Помогите! а то скоро надо защищать(

[Акоб]

Можно все элементы выше побочной диаганали записать в одномерный массив.

a := 0;
for i := 1 to n - 1 do
for j := 1 to n - j do
begin
a := a + 1;
y[a] : = x[i,j];
end

Дальше делаем пузырьковую сортировку.

t:boolean;
t := true;
while t = true do
begin
for i := 1 to a do
begin
if y[i] > y[i + 1] then
begin
BUFF := y[i];
y[i] := y[i + 1];
y[i + 1] := BUFF;
end
end
end

Потом все записываем обратно.

a := 0;
for i := 1 to n - 1 do
for j := 1 to n - j do
begin
a := a + 1;
x[i,j] := y[a];
end

[rwss gle]

Сообщение от Акоб

Можно все элементы выше побочной диаганали записать в одномерный массив.

a := 0;
for i := 1 to n - 1 do
for j := 1 to n - j do
begin
a := a + 1;
y[a] : = x[i,j];
end

Дальше делаем пузырьковую сортировку.

t:boolean;
t := true;
while t = true do
begin
for i := 1 to a do
begin
if y[i] > y[i + 1] then
begin
BUFF := y[i];
y[i] := y[i + 1];
y[i + 1] := BUFF;
end
end
end

Потом все записываем обратно.

a := 0;
for i := 1 to n - 1 do
for j := 1 to n - j do
begin
a := a + 1;
x[i,j] := y[a];
end

Спасибо БОЛЬШОЕ, вы мне очень помогли!