Question

как исправить??
Дана целочисленная матрица (6,9) Найти матрицу, получающуюся из данной перестановкой столбцов - первого с последним, второго с предпоследним и т.д.

Answer 1

const n=6; m=9;
var 
a:array[1..n,1..m] of integer;
x:integer;
begin
Randomize;
writeln('Исходный массив:');
for var i:=1 to n do
 begin
 for var j:=1 to m do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for var i:=1 to n do
 for var j:=1 to m div 2 do
  begin 
  x:=a[i,j]; a[i,j]:=a[i,m-j+1]; a[i,m-j+1]:=x;
  end;
writeln('Полученный массив:');
for var i:=1 to n do
 begin
 for var j:=1 to m do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  96  78  14  96  32  17   7  21  13
  83  27  68  66  34  17  98  15  67
  70  22  32  80  75  46  92   0  70
  62  37  65  39  29  55  94  12  48
  86   1  11  12  81  48  58  71  87
  42  67  51  31  70  42  52  17   0
Полученный массив:
  13  21   7  17  32  96  14  78  96
  67  15  98  17  34  66  68  27  83
  70   0  92  46  75  80  32  22  70
  48  12  94  55  29  39  65  37  62
  87  71  58  48  81  12  11   1  86
   0  17  52  42  70  31  51  67  42