@mashkama

упорядочить столбцы массива по возрастанию сумм эллементов столбцов мотодом Хоара. вот программа...но в ней сортирует только сумму, а сами столбцы нет...uses crt;
type mas=array[1..100] of integer;
var n,m,i,j,l: integer;
mass:mas;
a: array [1..100,1..100] of integer;
s: mas;

procedure quicks(first,last: integer; var m:mas);
var i,j,c,x,n: integer;
begin
i:=first;
j:=last;
x:=m[(first+last) div 2];
repeat
while m[i]<x do i:=i+1;
while x<m[j] do j:=j-1;
if i<=j then
begin
c:=m[i];
m[i]:=m[j];
m[j]:=c;
i:=i+1;
j:=i-1;
end;
until i>j;
if first<j then quicks(first,j,m);
if i<last then quicks(i,last,m);
end;

begin
clrscr;
write('vvedite kol-vo strok= '); readln(n);
write('vvedite kol-vo stolbcov= '); readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
write('vvedite a[',i,',',j,']='); readln(a[i,j]);
end;
end;
writeln;
writeln('Ishodnyi massiv:');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
s[1]:=0;
for j:=1 to m do
begin
for i:=1 to n do
begin
s[j]:=a[i,j]+s[j];
end;
write(s[j],' ');
end;
writeln;
quicks(1,m,s);
for j:=1 to m do write(s[j],' ');
writeln;
writeln('Novyi massiv:');
for j:=1 to m do begin
for i:=1 to n do begin

end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end.

0