Помощь - Поиск - Пользователи - Календарь
Полная версия: задача...квадратная матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
J.O
помогите пожалуйста с решением задачи:
дана целочисленная квадратная матрица размерностью N.Упорядочить по возрастанию элементы побочной диагонали!

заранее спасибо!
APAL
Цитата
4. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
Флогримм
J.O, привет! помогу тебе (как-никак я тебя сюда напрвил :) )
вот:
const k=100;
var
n,i,j,hlp:byte;
mas: array[1..k,1..k] of byte;
begin
randomize;
write('n> ');
readln(n);

for i:=1 to n do
for j:=1 to n do mas[i,j]:=random(89)+10; {чтоб не набивать массив вручную:) }

writeln;
for i:=1 to n do begin
for j:=1 to n do write(mas[i,j]:3);
writeln;
end; {вывод массива}

for j:=1 to n-1 do begin {сортировка}
for i:=j to n-1 do begin
if mas[j,n+1-j]>mas[i+1,n-i] then begin
hlp:=mas[j,n+1-j];
mas[j,n+1-j]:=mas[i+1,n-i];
mas[i+1,n-i]:=hlp;
end;
end;
end;

writeln;
for i:=1 to n do begin
for j:=1 to n do write(mas[i,j]:3);
writeln;
end; {вывод нового массива}
end.
volvo
Флогримм
А что, элемент с индексами [n, 1] к побочной диагонали уже не принадлежит? blink.gif
Флогримм
угу, смотрите предыдущее сообщение, исправил
Guest
APAL
онромное спасибо!!!!очень выручил...действительно! smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.