Другие языки программирования и технологии

Дана матрица размером NxM. Упорядочить ее строки по неубыванию их наибольших элементов. в делфи помогите плиз срочно

Упорядочить ее строки по неубыванию их наибольших элементов. в делфи помогите плиз срочно
program N60094766;
{$APPTYPE CONSOLE}
var a:array[1..100, 1..100] of integer;
n, m, i, j, k, imin, jmin, jmax, tmp:integer;
begin
write('Введите кол-во строк матрицы N: ');
readln(n);
write('Введите кол-во столбцов матрицы M: ');
readln(m);
writeln('Заданная матрица: ');
randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[ i, j ] := random(101) - 50;
write(a[ i, j ]:4)
end;
writeln
end;
for i := 1 to n - 1 do
begin
for k := i to n do
begin
for j := 1 to m do
if (j = 1) or (a[ k, j ] > a[ k, jmax ]) then
jmax := j;
if (k = i) or (a[ k, jmax ] < a[ imin, jmin]) then
begin
imin := k;
jmin := jmax
end;
end;
if i <> imin then
for j := 1 to m do
begin
tmp := a[ i, j ];
a[ i, j ] := a[ imin, j ];
a[ imin, j ] := tmp
end;
end;
writeln('Преобразованная матица: ');
for i := 1 to n do
begin
for j := 1 to m do
write(a[ i, j ]:4);
writeln
end;
readln
end.
Слава Паникаровский
Слава Паникаровский
51 590
Лучший ответ
пиши в аську 16952714 3
Виталий Барабаш нету аськи(

Похожие вопросы