Автор: Bronislav

Bronislav — Sat, 22 Sep 2018 15:05:07 +0000

program Matrix79;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 99); a.Println;
  
  //сортировка пузырьком по максимальным элементам столбцов матрицы
  for var l := 0 to n - 2 do
    for var j := 0 to n - 2 - l do//j-индекс столбца матрицы
      if a.Col(j).Max > a.Col(j + 1).Max then
        for var i := 0 to m - 1 do
          Swap(a[i, j], a[i, j + 1]);
  
  Println;
  a.Println
end.

program Matrix79;//pabc.net

begin

var m := 5;

var n := 6;

var a := MatrRandom(m, n, 0, 99); a.Println;

//сортировка пузырьком по максимальным элементам столбцов матрицы

for var l := 0 to n - 2 do

for var j := 0 to n - 2 - l do//j-индекс столбца матрицы

if a.Col(j).Max > a.Col(j + 1).Max then

for var i := 0 to m - 1 do

Swap(a[i, j], a[i, j + 1]);

Println;

a.Println

end.

Комментарии: Решаем задачи Абрамян на Паскале. Matrix79

Автор: Bronislav