Дан массив Z (3,4). Поменять в массиве второй столбец с четвёртым и вывести исходный массив и преобразованный в виде матриц

Const

N = 3;

M = 4;

Var

Z:array[1 ... N, 1 ... M] of integer;

i, j, B:integer;

Begin

Randomize;

WriteLn ('Исходный массив:') ;

For i: = 1 to N do

Begin

For j: = 1 to M do

Begin

Z[i, j]:=random (21) - 10;

Write (Z[i, j]:3,' ')

End;

WriteLn;

End;

WriteLn;

WriteLn ('Второй и четвёртый столбец переставлены:') ;

For i: = 1 to N do

Begin

B:=Z[i, 2];

Z[i, 2]:=Z[i, 4];

Z[i, 4]:=B;

End;

For i: = 1 to N do

Begin

For j: = 1 to M do

Write (Z[i, j]:3,' ') ;

WriteLn;

End;

End.

Пример:

Исходный массив:

-7 2 - 2 3

9 - 6 - 6 1

-9 10 - 9 3

Второй и четвёртый столбец переставлены:

-7 3 - 2 2

9 1 - 6 - 6

-9 3 - 9 10