Цитата(Baxyz® @ 31.05.2010 - 23:31)

Извините, что Вас нагружаю, просто я слаб в области турбо-паскаля :(
Бывает)
короче вот ваша прога, у меня нет компилятора паскаля, поэтому за орфографию не ручаюсь:
Код
var m:array [1..10,1..10] of real;
v: array [1..10] of real;
i,j,k,l,imax:byte;
t:real;
begin
{здесь ввод матрицы}
for i:=2 to 9 do begin
for j:=1 to i do v[j]:=m[j,i-j+1];
for k:=1 to i-1 do begin
imax:=k;
for l:=k to i do
if v[l]>v[imax] then imax:=i;
t:=v[k]; v[k]:=v[imax]; v[imax]:=t;
end;
for j:=1 to i do m[j.i-j+1]:=v[j];
end;
{вывод наэкран}
Этот код упорядочит все что выше побочной диагонали. Нижняя часть делается так же, только индекс у матрицы m поменяется по симметрии.