Автор: Bronislav

Bronislav — Wed, 05 Sep 2018 07:15:54 +0000

program Matrix58;//pabc.net

begin
  var m := 6;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  for var i := m div 2 to m - 1 do
    for var j := 0 to n div 2 - 1 do
      Swap(a[i, j], a[i - m div 2, j + n div 2]);
  
  Println;
  a.Println;
end.

program Matrix58;//pabc.net

begin

var m := 6;

var n := 6;

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

for var i := m div 2 to m - 1 do

for var j := 0 to n div 2 - 1 do

Swap(a[i, j], a[i - m div 2, j + n div 2]);

Println;

a.Println;

end.

Автор: Bronislav

Bronislav — Wed, 05 Sep 2018 07:14:16 +0000

Строка 37, та же самая ошибка что и в предыдущей задаче
Swap(a[(M div 2) + i, j], a[i, (N div 2) + j]);

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

Автор: Bronislav

Автор: Bronislav