Автор: Bronislav

Bronislav — Tue, 04 Sep 2018 10:33:20 +0000

program Matrix48;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var k1 := 0;
  var k2 := 1;
  
  for var i := 0 to m - 1 do
    Swap(a[i, k1], a[i, k2]);
  
  Println;
  a.Println;
end.

program Matrix48;//pabc.net

begin

var m := 5;

var n := 6;

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

var k1 := 0;

var k2 := 1;

for var i := 0 to m - 1 do

Swap(a[i, k1], a[i, k2]);

Println;

a.Println;

end.

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

Автор: Bronislav