Перестановка строк и столбцов в матрице

@Лилея · Регистрация: 16.01.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте!Поиогите,пожалуйста, исправить ошибку. Программа компилируется,но выводит только один результат - обмен столбцов матрицы А. Задание:Составить процедуры перестановки соответствующих элементов столбцов с номерами K и L в квадратной матрице размером n*n. Используя эту процедуру, поменять столбцы 2 и 4 матрицы A(5,5),вычислить матрицу D=А3 +В*А и поменять в ней местами столбцы 1 и 3,где В – квадратная матрица размером 5*5. Элементы матрицы А задать произвольно,а элементы матрицы А задать произвольно,а элементы матрицы В вычислить по формуле b[i,j]=i/j.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
Program kursak;
 Const
  Nmax = 5; {Максимальный размер массива}
 Type
  Matrix = array [1..Nmax, 1..Nmax] of integer;[
 Var
  A, B, C, N, K, M, H: matrix;
  i, j, z: integer;
 {Процедура перестановки столбцов K и L}
 {Параметры: k, l - столбцы, m - матрица}
 Procedure obmen (var m:matrica; k, l: byte);
  Var
   i:byte;
   s:integer;
    begin
      for i:=1 to n do
       begin
        S:=m[i,k];
         m[i,k]:=m[i,l];
         m[i,l]:=s;
        end;
     end
 
 {Процедура вывода элементов матриц}
 {Параметры: А, В - матрицы, z - размер}
 Procedure Echo (z: integer; A: matrix);
  Var
   i, j:byte;
  Begin {Echo}
   For i: = 1 to z do
    Begin
     For j: = 1 to z do
      Write (A [i,j]:5);
     Writeln;
    End;
  End; {Echo}
 {Процедура умножения матриц}
 {Переменные: A, B - начальные массивы}
 {C - массив результат, z - размер}
 Procedure Umn (A, B: matrix; z: integer; Var C: matrix);
  Var
   i, j, k, s: integer;
  Begin {Umn}
   For i: = 1 to z do
    For j: = 1 to z do
     Begin
      s: = 0;
      For k: = 1 to z do
       s: = s + A [i, k] * B [k, j];
      C [i, j]: =s;
     End;
  End; {Umn}
 {Процедура транспонирования массивов}
 {Переменные: А - начальный массив, В - массив результат}
 Procedure Transpon (A: matrica; z: integer; Var B: matrica);
  Var
   i, j: integer;
  Begin {Transpon}
   For i: = 1 to z do
    For j: = 1 to z do
     B [i, j]: = A [j, i];
  End; {transpon}
 
 {*** процедура суммирования матриц ***}
 procedure summa (A,B:matrica; n:integer; var S:matrica);
 begin
   for i:=1 to n do
   for j:=1 to n do
   S[i,j]:=a[i,j]+b[i,j];
 end;
 
Begin {kursak}
    Randomize;
      For i:=1 to n do
      For j:=1 to n do
      A[I,j]:=round(random(10));
       For I:=1 to n do
       begin
       For j:=1 to n do
        Write (A[I,j]:5);
         Writeln;
     End;
          Obmen (A,2,4);
          Writeln;
            For i:=1 to n do
           Begin
             For j:=1 to n do
              Write(A[I,j]:5);
              Writeln;
             End;
               Readln;              
begin
 read(n,m);
 i:=1;  {счетчик строк}
 j:=1;  {счетчик столбцов}
 while (i<=n) and (j<=m) do
  begin
   B[i,j]:=i/j;
   inc(j);  {увеличиваем счетчик столбцов}
   if (j=m+1) then {если текущий столбец вышел за пределы массива, то}
    begin
     j:=1;  {делаем текущим первый столбец}
     inc(i); {увеличиваем счетчик строки}
    end;
  end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(b[i,j]:5); {выводим массив уже по-обычному}
  writeln;
 end;
 readln
end;
   Umn (A,A,n,U1);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (U2[I,j]:5);
             Writeln;
           End;
      End;
       Transpon (U2,n,T);
             Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (T[I,j]:5);
             Writeln;
           End;
      End;
        Umn (T,B,n,C);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (C[I,j]:5);
             Writeln;
           End;
      End;
                    SUmma (U2,C,n,D);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (D[I,j]:5);
             Writeln;
           End;
      End;
          
             Obmen (A,2,4);
               Writeln;
               For i:=1 to n do
                 Begin
                   For j:=1 to n do
                    Write(A[I,j]:5);
                    Writeln;
             End;
               Readln;  
  End.

@use · 17.01.2011, 04:07

Сообщение от Лилея

Поиогите,пожалуйста, исправить ошибку. Программа компилируется,но выводит только один результат - обмен столбцов матрицы А.

Я бы с удовольствием тебе помог, но я очень не люблю, когда обманывают. Выложенный тобой код АБСОЛЮТНО не компилируется. В нем больше ошибок, чем в моей старой рваной майке дыр. И не надо всем пудрить мозги.. Если есть действительно компилирующийся код - его и выкладывай. А не абы что (они вумные, они проглотят..)

@Лилея · 17.01.2011, 11:42 **[ТС]**

Ну,я только начинаю...И вот,что получилось.В моём понимании компилируется - не находит ошибок в написании,т.е. доходит до уровня запуска,а прога у меня запустилась. Другой программы у меня нет и я не пудрю мозги - помочь некому,думала мало ошибок.

Добавлено через 1 минуту

Сообщение от use

Я бы с удовольствием тебе помог, но я очень не люблю, когда обманывают.

И я не обманываю вовсе

@N@tali · 17.01.2011, 11:45

новички так код не оформляют... значит код где то взят...

@Лилея · 17.01.2011, 11:51 **[ТС]**

Что значит "код"?Процедуры из разных программ я взяла,и связала...неправильно.

@Puporev · 17.01.2011, 11:54

Сообщение от Лилея

В моём понимании компилируется - не находит ошибок в написании,т.е. доходит до уровня запуска,а прога у меня запустилась.

Вот здесь и врете. Ничего не запускается, да и не может по определению, куча синтаксических ошибок, в основном связанных с тем что отдельные куски кода выдраны из разных чужих программ, а уж не уметь писать правильно оператор присваивания это вообще...

@Лилея · 17.01.2011, 12:00 **[ТС]**

нашла,что значит "код".Но всё равно оч плохо разбираюсь в этом.

@N@tali · 17.01.2011, 12:02

мамочки... да тут ошибок то.. глаза разбежались. И вы говорите что у вас программа запустилась...

@Лилея · 17.01.2011, 12:03 **[ТС]**

Сообщение от Puporev

Вот здесь и врете. Ничего не запускается, да и не может по определению, куча синтаксических ошибок, в основном связанных с тем что отдельные куски кода выдраны из разных чужих программ, а уж не уметь писать правильно оператор присваивания это вообще...

У меня паскаль работает через Скул Пак самодельный. Но программа выводит матрицу A и переставляет в ней столбцы,может потому что это единственно правильные. А что выдрала - это да, базы своей пока нет(((

@Puporev · 17.01.2011, 12:04

Эту программу нужно писать сначала и нормально. В задании вообще говорится об одной процедуре, это ошибка или и нужна только одна процедура, хотя вряд ли...

@Лилея · 17.01.2011, 12:17 **[ТС]**

Сообщение от N@tali

мамочки... да тут ошибок то.. глаза разбежались. И вы говорите что у вас программа запустилась...

Может Скул парк недоделанный?Он иногда глючит.Надоело ему весь день мучаться,он и выдал результат))))

Добавлено через 12 минут

Сообщение от Puporev

Эту программу нужно писать сначала и нормально. В задании вообще говорится об одной процедуре, это ошибка или и нужна только одна процедура, хотя вряд ли...

Понятно...Но процедуры нужны как минимум 2-3.

@Puporev · 17.01.2011, 12:22

Сообщение от Лилея

D=А3 +В*А

Это А*3+В*А или A^3+B*A?

@Лилея · 17.01.2011, 12:27 **[ТС]**

Ой,извините, я прогу с Ворда скопировала (с Паскаля напрямую не получается)и поэтому с ошибками(не заметила).Теперь понимаю ваше негодование по поводу того,что невозможно компилировать.Сейчас исправлю..

@Puporev · 17.01.2011, 12:38

Лилея, Не нужно, я напишу сначала, только уточните А умножить на 3, или матрица А в кубе?

@Лилея · 17.01.2011, 12:42 **[ТС]**

Вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
Program kursak;
 Const
  Nmax = 5; {Максимальный размер массива}
 Type
  Matrica = array [1..N, 1..N] of real;
 Var
  A, B, C, D, U1, U2, T, S: matrica;
  i, j, k, p, m: byte;
 {Процедура перестановки столбцов K и L}
 {Параметры: k, l - столбцы, m - матрица}
 Procedure obmen (var m:matrica; k, l: byte);
  Var
   i:byte;
   s:integer;
    begin
      for i:=1 to n do
       begin
        S:=m[i,k];
         m[i,k]:=m[i,l];
         m[i,l]:=s;
        end;
     end
 
{Процедура умножения матриц}
 {Переменные: A, B - начальные массивы}
 {C - массив результат, m - размер}
 Procedure Umn (A, B: matrix; z: integer; Var C: matrica);
  Var
   i, j, k: integer;
  s:real;
  Begin {Umn}
   For i: = 1 to m do
    For j: = 1 to m do
     Begin
      s: = 0;
      For k: = 1 to m do
       s: = s + A [i, k] * B [k, j];
      C [i, j]: =s;
     End;
  End; {Umn}
 {Процедура транспонирования массивов}
 {Переменные: А - начальный массив, В - массив результат}
 Procedure Transpon (A: matrica; z: integer; Var B: matrica);
  Var
   i, j: integer;
  Begin {Transpon}
   For i: = 1 to m do
    For j: = 1 to m do
     B [i, j]: = A [j, i];
  End; {transpon}
 
 {*** процедура суммирования матриц ***}
 procedure summa (A,B:matrica; n:integer; var S:matrica);
 begin
   for i:=1 to n do
   for j:=1 to n do
   S[i,j]:=a[i,j]+b[i,j];
 end;
 
Begin {kursak}
    Randomize;
      For i:=1 to n do
      For j:=1 to n do
      A[I,j]:=round(random(10));
       For I:=1 to n do
       begin
       For j:=1 to n do
        Write (A[I,j]:5);
         Writeln;
     End;
          Obmen (A,2,4);
          Writeln;
            For i:=1 to n do
           Begin
             For j:=1 to n do
              Write(A[I,j]:5);
              Writeln;
             End;
               Readln;              
 read(n,m);
 i:=1;  {счетчик строк}
 j:=1;  {счетчик столбцов}
 while (i<=n) and (j<=m) do
  begin
   B[i,j]:=i/j;
   inc(j);  {увеличиваем счетчик столбцов}
   if (j=m+1) then {если текущий столбец вышел за пределы массива, то}
    begin
     j:=1;  {делаем текущим первый столбец}
     inc(i); {увеличиваем счетчик строки}
    end;
  end;
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(b[i,j]); {выводим массив уже по-обычному}
  writeln;
 end;
 readln
end;
   Umn (A,A,n,U1);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (U1[I,j]:5);
             Writeln;
           End;
      End;
         Umn (A,U1,n,U2);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (U2[I,j]:5);
             Writeln;
           End;
         
      End;
 
       Transpon (U2,n,T);
             Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (T[I,j]:5);
             Writeln;
           End;
      End;
        Umn (T,B,n,C);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (C[I,j]:5);
             Writeln;
           End;
      End;
                    SUmma (U2,C,n,D);
     Begin
       For i:=1 to n do
          Begin
            For j:=1 to n do
             Write (D[I,j]:5);
             Writeln;
           End;
      End;
          
             Obmen (D,1,3);
               Writeln;
               For i:=1 to n do
                 Begin
                   For j:=1 to n do
                    Write(D[I,j]:5);
                    Writeln;
             End;
               Readln;  
  End.

Добавлено через 1 минуту

Сообщение от Puporev

Лилея, Не нужно, я напишу сначала, только уточните А умножить на 3, или матрица А в кубе?

Спасибо!Матрица А в кубе.

@Puporev · 17.01.2011, 12:49

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
uses crt;
const n=5;
type matrix=array[1..n,1..n] of real;
{обмен столбцов}
procedure Obmen(var a:matrix;k,l:byte);
var i,j:byte;
    x:real;
begin
for i:=1 to n do
 begin
  x:=a[i,k];
  a[i,k]:=a[i,l];
  a[i,l]:=x;
 end;
end;
{вывод матриц на экран}
procedure Vyvod(var a:matrix);
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:8:2);
  writeln;
 end;
writeln;
end;
{умножение матриц}
procedure Umn(a,b:matrix;var c:matrix);
var i,j,p:byte;
begin
for p:=1 to n do
for j:=1 to n do
 begin
  c[p,j]:=0;
  for i:=1 to n do
  c[p,j]:=c[p,j]+a[p,i]*b[i,j];
 end;
end;
var a,b,c,d,e,f:matrix;
    i,j:byte;
begin
clrscr;
randomize;
{создадим матрицу А}
for i:=1 to n do
for j:=1 to n do
a[i,j]:=5*random;
writeln('Исходная матрица А:');
Vyvod(a);
Obmen(a,2,4);
writeln('Обмен столбцов 2 и 4:');
Vyvod(a);
{создадим матрицу В}
for i:=1 to n do
for j:=1 to n do
b[i,j]:=i/j;
writeln('Исходная матрица B:');
Vyvod(b);
write('Нажмите Enter для продолжения...');
readln;
{получим матрицу А в кубе}
Umn(a,a,c);
Umn(a,c,e);
writeln('Матрица A^3');
Vyvod(e);
{получим В*А}
Umn(b,a,f);
writeln('Матрица B*A');
Vyvod(f);
write('Нажмите Enter для продолжения...');
readln;
{сумма матриц}
for i:=1 to n do
for j:=1 to n do
d[i,j]:=e[i,j]+f[i,j];
writeln('Исходная матрица D:');
Vyvod(d);
Obmen(d,1,3);
writeln('Обмен столбцов 1 и 3:');
Vyvod(d);
write('Нажмите Enter для выхода...');
readln
end.

@Лилея · 17.01.2011, 12:55 **[ТС]**

Puporev, Спасибо преогромное!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!

@use · 18.01.2011, 07:04

Лилея, я извиняюсь, конечно, что не додумался, что копироваться могло через Word. Копировать следует через Notepad (aka Блокнот, наверное) или более продвинутое средство. Но даже Word не мог заменить n на Nmax и real на interger, а также убрать ";" и т.д. и т.п. Так что, спасибо тебе за "спасибо" (считаю, вполне заслуженное), но я не снимаю свое обвинение в обмане. Твой последний выложенный код все так же далек от компилирования, и Вордом это не объяснишь. И если Puporev счел более простым решением промолчать и дать тебе решение, то я все же считаю нужным сказать: ТАК ты мало чего добьешься (и на форуме, и в жизни). Не надо передергивать, и не надо валить на Ворд.. Если бы ты с самого начала сказала правду (что код некомпилируемый), тебе бы давно помогли без лишних слов. Каждый, конечно, решает для себя, как жить..

Сообщение от Лилея

паскаль работает через Скул Пак самодельный

А это что за зверь? О_о

@Лилея · 18.01.2011, 17:37 **[ТС]**

Сообщение от use

Лилея, я извиняюсь, конечно, что не додумался, что копироваться могло через Word. Копировать следует через Notepad (aka Блокнот, наверное) или более продвинутое средство. Но даже Word не мог заменить n на Nmax и real на interger, а также убрать ";" и т.д. и т.п. Так что, спасибо тебе за "спасибо" (считаю, вполне заслуженное), но я не снимаю свое обвинение в обмане. Твой последний выложенный код все так же далек от компилирования, и Вордом это не объяснишь. И если Puporev счел более простым решением промолчать и дать тебе решение, то я все же считаю нужным сказать: ТАК ты мало чего добьешься (и на форуме, и в жизни). Не надо передергивать, и не надо валить на Ворд.. Если бы ты с самого начала сказала правду (что код некомпилируемый), тебе бы давно помогли без лишних слов. Каждый, конечно, решает для себя, как жить..

А это что за зверь? О_о

Да не лгу я. Это против моих принципов,если и получилось,то нечаянно. Тебе спасибо,за то,что сказал,какова получилась сборка-программа,если её так можно назвать. Последний код частично компилировался,если я опять чего не пропустила.Я сначала в Ворд всё скопировала,потом в Паскале печатала,потом в Ворде исправляла и напутала,а ещё поздно было - я не сова. В следующий раз буду проверять тщательно,что напечатала. Решаю я,конечно,для себя сама. Мне почти всё даётся,но только ,если потружусь,халява,сэр не люблю,но проги писать пока не умею((

Добавлено через 4 минуты

Сообщение от use

Лилея

А это что за зверь? О_о

School Park - эмулятор. У моего компа ОС 64-хразрядная.

@Лилея · 18.01.2011, 17:54 **[ТС]**

Сообщение от use

И если Puporev счел более простым решением промолчать и дать тебе решениею..

А Puporevu я очнь благодарна!!!Он добрый)))

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@N@tali 781 / 462 / 85 Регистрация: 20.02.2010 Сообщений: 974
	17.01.2011, 11:45
	новички так код не оформляют... значит код где то взят... 0

@Лилея 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 24
	17.01.2011, 11:51 [ТС]
	Что значит "код"?Процедуры из разных программ я взяла,и связала...неправильно. 0

@Лилея 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 24
	17.01.2011, 12:00 [ТС]
	нашла,что значит "код".Но всё равно оч плохо разбираюсь в этом. 0

@N@tali 781 / 462 / 85 Регистрация: 20.02.2010 Сообщений: 974
	17.01.2011, 12:02
	мамочки... да тут ошибок то.. глаза разбежались. И вы говорите что у вас программа запустилась... 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	17.01.2011, 12:04
	Эту программу нужно писать сначала и нормально. В задании вообще говорится об одной процедуре, это ошибка или и нужна только одна процедура, хотя вряд ли... 1

@Лилея 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 24
	17.01.2011, 12:27 [ТС]
	Ой,извините, я прогу с Ворда скопировала (с Паскаля напрямую не получается)и поэтому с ошибками(не заметила).Теперь понимаю ваше негодование по поводу того,что невозможно компилировать.Сейчас исправлю.. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	17.01.2011, 12:38
	Лилея, Не нужно, я напишу сначала, только уточните А умножить на 3, или матрица А в кубе? 1

@Лилея 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 24
	17.01.2011, 12:55 [ТС]
	Puporev, Спасибо преогромное!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!! 0

Перестановка строк и столбцов в матрице

Решение