На Pascal:
const n= 4;
m= 7;
type Tmatr= array[1..n,1..m] of byte;
var
A: Tmatr;
t,i,j: byte;
mini,maxi: byte;
begin
Randomize;
for i:=1 to n do
for j:=1 to m do
A[i,j]:= Random(100);
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:4);
Writeln;
end;
Writeln;
j:=1;
repeat
maxi:=1;
for i:=2 to n do
if A[i,j]> A[maxi,j] then maxi:= i;
mini:=1;
for i:=2 to n do
if A[i,j]< A[mini,j] then mini:= i;
t:= A[mini,j];
A[mini,j]:= A[maxi,j];
A[maxi,j]:= t;
Inc(j);
until j>m;
for i:=1 to n do begin
for j:=1 to m do
Write(A[i,j]:4);
Writeln;
end;
Readln;
end.