в двухмерном массиве поменять местами столбцы с максимальным и минимальным элементами

[Лёха]

Условие задачи: в двухмерном массиве поменять местами столбцы с максимальным и минимальным элементами!

[Abbatik]

var a:array[1..10,1..10] of integer;
max,min,m1,m2:integer;
begin
randomize;
min:=9999;
max:=0;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(50);
write(a[i,j]:3);
if a[i,j]<min then begin min:=a[i,j]; m1:=j; end;
if a[i,j]>max then begin max:=a[i,j]; m2:=j; end;
end;
writeln;
end;
for i:=1 to 10 do begin
t:=a[i,m1];
a[i,m1]:=a[i,m2];
a[i,m2]:=t;

end;
writeln('rezultat=');
for i:=1 to 10 do begin
for j:=1 to 10 do begin
write(a[i,j]:3);
end;
writeln;
end;

end.

[Лёха]

Чтот немного неработает! Но всё рано спасибо

[Tayfun]

Низнаю как удалить сообщение...

[kommunist]

http://www.programmersforum.ru/showthread.php?p=58661

[Лёха]

Это я сам сделал! теперь надо сделать к ней блоксхему.