Pascal
Как я понял array [1..10,1..5] of integer;
const
n = 10;
m = 5;
var
a : array [1..n,1..m] of integer;
i,j,min,jm,buf : integer;
begin
for i := 1 to n do
for j := 1 to m do
readln (a[i,j]);
min := a[1,1];
jm := 1;
for i := 1 to n do
for j := 1 to m do
if a[i,j] < min then
begin
jm := j;
min := a[i,j];
end;
if jm <> 1 then
for i := 1 to n do
begin
buf := a[i,1];
a[i,1] := a[i,jm];
a[i,jm] := buf;
end;
end.