Консультация № 69332
02.01.2007, 21:08
0.00 руб.
0 1 1
Помогите пожалуйста.
Упорядочить матрицу по неубыванию наибольших элементов строк.
заранее сппосибо!

Обсуждение

Неизвестный
03.01.2007, 14:36
общий
это ответ
Здравствуйте, Arian!
Решение задачи в приложении. Для хранения максимальных эл-тов строк используется дополнительный массив.

Приложение:
program Project2;const n = 3; m = 2;var a: array[1..n, 1..m] of integer; b: array[1..n] of integer; i, j, k, max,c: integer;begin writeln(‘Vvedite matritsu‘); for i := 1 to n do for j := 1 to m do readln(a[i, j]); for i := 1 to n do begin max := a[i, 1]; for j := 2 to m do if a[i, j] > max then max := a[i, j]; b[i] := max; end; for k := 1 to n do for i := 1 to n - k do if b[i] > b[i + 1] then begin c := b[i]; b[i] := b[i + 1]; b[i + 1] := c; for j := 1 to m do begin c := a[i, j]; a[i, j] := a[i + 1, j]; a[i + 1, j] := c; end; end; writeln(‘Poluchennaya matritsa‘); for i := 1 to n do begin for j := 1 to m do write(a[i, j],‘ ‘); writeln; end; readln;end.
Форма ответа