Автор: Bronislav

Bronislav — Wed, 05 Sep 2018 08:03:39 +0000

program Matrix60;//fpc

uses TaskMatrix;

var
  a: intMatrix;
  m, n, j: integer;

begin
  m := 5;
  n := 6;
  
  FillMatrixByRandom(a, m, n, 0, 100);
  PrintMatrix(a, m, n);
  
  for j := 1 to n div 2 do
    SwapMatrixCol(a, m, n, j, n - j + 1);
  
  Writeln;
  PrintMatrix(a, m, n)
end.

program Matrix60;//fpc

uses TaskMatrix;

var

a: intMatrix;

m, n, j: integer;

begin

m := 5;

n := 6;

FillMatrixByRandom(a, m, n, 0, 100);

PrintMatrix(a, m, n);

for j := 1 to n div 2 do

SwapMatrixCol(a, m, n, j, n - j + 1);

Writeln;

PrintMatrix(a, m, n)

end.

program Matrix60;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  for var j := 0 to n div 2 - 1 do
    a.SwapCols(j, n - 1 - j);
  
  Println;
  a.Println;
end.

program Matrix60;//pabc.net

begin

var m := 5;

var n := 6;

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

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

a.SwapCols(j, n - 1 - j);

Println;

a.Println;

end.

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

Автор: Bronislav