program Project1;
uses
SysUtils;
type
TIntArray = array of Integer;
T2DIntArray = array of TIntArray;
procedure ArrSetLength(var Arr: T2DIntArray; X, Y: Integer);
var
I: Integer;
begin
SetLength(Arr, X);
for I := Low(Arr) to High(Arr) do
SetLength(Arr[I], Y);
end;
procedure PrintArray(const Arr: T2DIntArray);
var
I, J: Integer;
begin
Writeln;
for I := Low(Arr) to High(Arr) do
begin
for J := Low(Arr[I]) to High(Arr[I]) do
Write(Arr[I][J]:4);
Writeln;
end;
end;
procedure Transponer(const Arr: T2DIntArray; var ArrT: T2DIntArray);
var
I, J: Integer;
Temp: Integer;
begin
ArrSetLength(ArrT, Length(Arr[0]), Length(Arr));
for I := Low(Arr) to High(Arr) do
for J := 0 to High(Arr[I]) do
begin
ArrT[J, I] := Arr[I, J];
end;
end;
var
X, XT: T2DIntArray;
begin
ArrSetLength(X, 2, 4);
X[0][0] := 1;
X[0][1] := 2;
X[0][2] := 3;
X[0][3] := 4;
X[1][0] := 5;
X[1][1] := 6;
X[1][2] := 7;
X[1][3] := 8;
PrintArray(X);
Transponer(X, XT);
Writeln;
PrintArray(XT);
Readln;
end.
cHJvZ3JhbSBQcm9qZWN0MTsKdXNlcwogIFN5c1V0aWxzOwoKdHlwZQogIFRJbnRBcnJheSA9IGFycmF5IG9mIEludGVnZXI7CiAgVDJESW50QXJyYXkgPSBhcnJheSBvZiBUSW50QXJyYXk7Cgpwcm9jZWR1cmUgQXJyU2V0TGVuZ3RoKHZhciBBcnI6IFQyREludEFycmF5OyBYLCBZOiBJbnRlZ2VyKTsKdmFyCiAgSTogSW50ZWdlcjsKYmVnaW4KICBTZXRMZW5ndGgoQXJyLCBYKTsKICBmb3IgSSA6PSBMb3coQXJyKSB0byBIaWdoKEFycikgZG8KICAgIFNldExlbmd0aChBcnJbSV0sIFkpOwplbmQ7Cgpwcm9jZWR1cmUgUHJpbnRBcnJheShjb25zdCBBcnI6IFQyREludEFycmF5KTsKdmFyCiAgSSwgSjogSW50ZWdlcjsKYmVnaW4KICBXcml0ZWxuOwogIGZvciBJIDo9IExvdyhBcnIpIHRvIEhpZ2goQXJyKSBkbwogIGJlZ2luCiAgICBmb3IgSiA6PSBMb3coQXJyW0ldKSB0byBIaWdoKEFycltJXSkgZG8KICAgICAgV3JpdGUoQXJyW0ldW0pdOjQpOwogICAgV3JpdGVsbjsKICBlbmQ7CmVuZDsKCnByb2NlZHVyZSBUcmFuc3BvbmVyKGNvbnN0IEFycjogVDJESW50QXJyYXk7IHZhciBBcnJUOiBUMkRJbnRBcnJheSk7CnZhcgogIEksIEo6IEludGVnZXI7CiAgVGVtcDogSW50ZWdlcjsKYmVnaW4KICBBcnJTZXRMZW5ndGgoQXJyVCwgTGVuZ3RoKEFyclswXSksIExlbmd0aChBcnIpKTsKICBmb3IgSSA6PSBMb3coQXJyKSB0byBIaWdoKEFycikgZG8KICAgIGZvciBKIDo9IDAgdG8gSGlnaChBcnJbSV0pIGRvCiAgICBiZWdpbgogICAgICBBcnJUW0osIEldIDo9IEFycltJLCBKXTsKICAgIGVuZDsKZW5kOwoKdmFyCiAgWCwgWFQ6IFQyREludEFycmF5OwpiZWdpbgogICAgQXJyU2V0TGVuZ3RoKFgsIDIsIDQpOwogICAgWFswXVswXSA6PSAxOwogICAgWFswXVsxXSA6PSAyOwogICAgWFswXVsyXSA6PSAzOwogICAgWFswXVszXSA6PSA0OwogICAgWFsxXVswXSA6PSA1OwogICAgWFsxXVsxXSA6PSA2OwogICAgWFsxXVsyXSA6PSA3OwogICAgWFsxXVszXSA6PSA4OwogICAgUHJpbnRBcnJheShYKTsKICAgIFRyYW5zcG9uZXIoWCwgWFQpOwogICAgV3JpdGVsbjsKICAgIFByaW50QXJyYXkoWFQpOwogICAgUmVhZGxuOwplbmQu