Поменять местами все четные и нечетные строки матрицы - Delphi - Ответ 13103770

type str=array of integer;
     mtr=array of str;
var
  Form1: TForm1;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var m,n,i,j:integer;
    a:mtr;
    b:str;
begin
randomize;
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
setlength(a,m);
for i:=0 to m-1 do
setlength(a[i],n);
setlength(b,n);
with StringGrid1 do
 begin
  fixedcols:=0;
  colCount:=n;
  defaultcolwidth:=30;
  fixedrows:=0;
  rowcount:=m;
 end;
with StringGrid2 do
 begin
  fixedcols:=0;
  colCount:=n;
  defaultcolwidth:=30;
  fixedrows:=0;
  rowcount:=m;
 end;
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
   a[i,j]:=10+random(90);
   StringGrid1.Cells[j,i]:=inttostr(a[i,j]);
 end;
i:=0;
while i<m-1 do
 begin
  b:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=b;
  i:=i+2;
 end;
for i:=0 to m-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=inttostr(a[i,j]);
end;