Версия для печати темы

Автор: NEFFboy 16.05.2007 6:05

Есть задача:
Упорядочить по убыванию элементы каждой строки матрицы размером (n*m) .

У меня вот что получилось:

var
 i, n, j: integer;
 y: array[1..100] of word;
begin
 writeln('введите размер матрицы:');
 readln(n);
 for i:=1 to n do
 begin
  write('y[',i']=');
  readln(y[i]);
 end;
 writeln('массив y');
 for i := 1 to n do write (y [i], ' ');
 writeln;
 for j:=1 to n-1 do
 for i:=1 to n-j do
 if y[i] > y[i+1] then
  begin
   b:=y[i];
   y[i]:=y[i+1];
   y[i+1]:=b;
 end;
 writeln('упорядоченная матрица');
 for i:=1 to n do
 write(y[i]. ' ');
 writeln;
end.

Автор: klem4 16.05.2007 12:54

Задача именно такая (сортировка строк/столбцов) решалась сотни раз, воспользуйся поиском.

Автор: shutka 16.05.2007 12:55

Матрица - это двумерный массив!!!И задаваться должен соответственно, т.е y[1..n,1..m] и соответственно цикл один будет внешний, а второй вложенный!!!Или я ошибаюсь???

Автор: NEFFboy 17.05.2007 19:57

Цитата(klem4 @ 16.05.2007 9:54)