Const m=6; n=8; var a:array[1..m,1..n] of integer; i,j,r:integer; begin Randomize; Writeln('Исходный массив'); for i := 1 to m do begin for j := 1 to n do begin a[i,j]:=Random(100); Write(a[i,j]:3) end; Writeln end; for j:=1 to n do begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end; Writeln('Результирующий массив'); for i := 1 to m do begin for j := 1 to n do Write(a[i,j]:3); Writeln end end.
m=6;
n=8;
var
a:array[1..m,1..n] of integer;
i,j,r:integer;
begin
Randomize;
Writeln('Исходный массив');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i,j]:=Random(100);
Write(a[i,j]:3)
end;
Writeln
end;
for j:=1 to n do
begin r:=a[1,j]; a[1,j]:=a[m,j]; a[m,j]:=r end;
Writeln('Результирующий массив');
for i := 1 to m do
begin
for j := 1 to n do Write(a[i,j]:3);
Writeln
end
end.
Тестовое решение:
Исходный массив
6 93 10 3 80 4 47 71
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
42 26 67 23 28 8 8 45
Результирующий массив
42 26 67 23 28 8 8 45
33 33 75 85 93 22 53 16
83 30 39 95 35 53 30 83
29 43 83 54 88 83 49 67
24 67 47 97 82 40 67 35
6 93 10 3 80 4 47 71