program mn;
uses crt;
const m=7;n=9;
var mas:array[1..m,1..n] of Integer ;
m1, m2:array[1..n] of Integer ;
i, j, k:Integer;
begin
Randomize;
write('Исходный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
mas[i, j]:=random(100);
write(mas[i, j]:3) end end ;
j:=0;
repeat
for i:=1 to n do begin
m1[i]:=mas[1+j,i];
m2[i]:=mas[m-j,i];
mas[1+j,i]:=m2[i];
mas[m-j,i]:=m1[i]; end;
j:=j+1
until j>m div 2;
writeln;
write('Преобразованный массив:') ;
for i:=1 to m do begin
writeln;
for j:=1 to n do
write(mas[i, j] :3) end;
readln;
end.
Объяснение:
В разделе const задаем нужный размер исходного массива.
ответ:Binary coding — 0010101101010010010101110100101
00101101101100010000101000100110
00101100001001101010100100101011
101010000
Informatica — 0011001001010111010011110101100
00101101101010110010010100101110
1010100100100110001001010
Kazakhstan — 0011010001001010011000110100101
00101010001010001010111000101110
10100101001010111
Rykhani jangyry — 0011101101100010010101000101000
10100101001010111010100100001010
00101001101001010010101110101000
00110001001011011011000100000111
00001110000101100010010110101101
10000111000011011001011110000111
00001110000101110
Объяснение: