.поменять местами столбцы, содержащие минимальные и максимальные эллементы массива.

[Julila]

Дана матрица размера MxN.поменять местами столбцы, содержащие минимальные и максимальные эллементы массива.
паскаль. так чтоб было не мудренно )

[baster128]

Это фрагмент из настраиваемого теста где строковые массивы сортируются по возрастанию. Вопросы и ответы на них вводятся в ходе создания теста. На один вопрос можно дать 5 вариантов ответов на другой 3. Но эта процедура все равно поменяет все по возрастанию.

procedure TForm2.BubbleInt(var M: array of integer);
var i, j, N, Rtmp,Rtmp1: integer;
noswap: boolean;
Buff:TStringList;bStr:string;
begin
N := High(M);
for i:=0 to N-1 do begin
Buff:=TStringList.Create;
noswap := true;
for j:=N-1 downto i do
if M[j] > M[j+1]
then begin
Rtmp := M[j+1];
M[j+1] := M[j];
M[j] := Rtmp;
Rtmp1 := msCo[j+1];
msCo[j+1] := msCo[j];
msCo[j] := Rtmp1;
Buff.Assign(mmList[j+1]);
mmList[j+1].Assign(mmList[j]);
mmList[j].Assign(Buff);
bStr:= cbQust.Items[j+1];
cbQust.Items[j+1]:= cbQust.Items[j];
cbQust.Items[j]:= bStr;
noswap := false;
end;
if(noswap) then begin
Buff.Free;
exit end
end;
end;