Другие языки программирования и технологии
Дана матрица размером 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.
{$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.
пиши в аську 16952714 3
Виталий Барабаш
нету аськи(
Похожие вопросы
- Дана матрица размером n x m. Найти наибольший положительный и наименьший отрицательный элементы матрицы.
- Помогите плиз!!! СРОЧНО!!!
- Упорядочить по возрастанию элементы каждой строки матрицы размером n х n.
- помогите составить программу на Pascal дана матрица NxN.Найти наибольший элемент строки K.
- помогите пожалуйста решить задачу в С++,завтра экзамен. дана матрица а [4][5],надо найти строку с максимальным средним ари
- Дана действительная матрица размера 6x9. Найти среднее арифметическое наибольшего и наименьшего значений ее элементов.
- дана целочисленная матрица размера mxm. определить числа b1,b2,...bm,каждое из которых равно количеству четных элементов
- Дано натуральное число n и вещественная матрица размера n X 9 . Плиз помогите(
- дана матрица а размерности n на m. Найти максимальный элемент в каждом столбце. Помогите пожалуйста решить. На языке C++
- Дана действительная матрица размера n * m организовать однонаправленный список матрицы. Паскаль