Program exp3; uses crt; const m = 5; n = 3; type matr = array [1 .. m, 1 .. n] of integer; var A: matr; b, i, j, k: integer; begin clrscr; randomize; for i := 1 to m do begin for j := 1 to n do begin A[i, j] := random(101); end; end; k := n div 2; for j := 1 to k do begin for i := 1 to m do begin b := A[i, j]; A[i, j] := A[i, n - j + 1]; A[i, n - j + 1] := b; end; end; for i := 1 to m do begin for j := 1 to n do begin write(A[i,j]: 5) ; end; writeln; end; readln; end.
uses crt;
const
m = 5;
n = 3;
type
matr = array [1 .. m, 1 .. n] of integer;
var
A: matr;
b, i, j, k: integer;
begin
clrscr;
randomize;
for i := 1 to m do
begin
for j := 1 to n do
begin
A[i, j] := random(101);
end;
end;
k := n div 2;
for j := 1 to k do
begin
for i := 1 to m do
begin
b := A[i, j];
A[i, j] := A[i, n - j + 1];
A[i, n - j + 1] := b;
end;
end;
for i := 1 to m do
begin
for j := 1 to n do
begin
write(A[i,j]: 5) ;
end;
writeln;
end;
readln;
end.