как исправить??
Дана целочисленная матрица (6,9) Найти матрицу, получающуюся из данной перестановкой столбцов - первого с последним, второго с предпоследним и т.д.
Приложения:
![](https://st.uroker.com/files/2f7/2f74f1d8b39c4ba18b8451b9959cf197.jpg)
![](https://st.uroker.com/files/9c8/9c82f00dc40e818651f5a24ffdf059e8.jpg)
Ответы
Ответ дал:
0
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
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
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад