помогите найти ошибочку

[alexantonov]

помогите найти ошибку
задачка таже: в матрице a[1..n,1..m] упорядочить эл-ты столбца, содержащего наибольшее кол-во отриц. чисел по убванию

программа сортирует последний столбец а где ошибка

uses crt;
const n=5; m=5;
var a:array[1..n,1..m] of integer;
var b:array[1..m] of integer; pr:boolean;
i,j,nom,max,buf,k:integer;
begin
clrscr;

randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=-5+random(10);
write (a[i,j]:4);

end;
writeln;
end;

for i:=1 to m do begin
for j:=1 to n do begin
if (a[i,j]<0) then b[j]:=b[j]+1; nom:=j;
end;
end;
k:=n;
repeat pr:=false; k:=k-1;
for i:=1 to k do
if a[i,nom]<a[i+1,nom]
then begin buf:=a[i,nom];
a[i,nom]:=a[i+1,nom];
a[i+1,nom]:=buf;
pr:=true;
end;
until not pr;
for i:=1 to n do begin
for j:=1 to m do begin
write(a[i,j]:4);end; writeln;
end;
end.

[Stilet]

Ну вообще сортировку принято делать так:

for j:=1 to n-1 do begin
 for i:=1 to n-1 do begin
  if a[i,nom]<a[i+1,nom]then begin
   buf:=a[i,nom];
   a[i,nom]:=a[i+1,nom];
   a[i+1,nom]:=buf;
  end;
 end;
end;

P.S. Я бы все с нуля переделал, помоему это гиблый вариант...

[Грымзик]

Он сортирует массив с индексом nom.
А что это такое?

for i:=1 to m do begin
for j:=1 to n do begin
if (a[i,j]<0) then b[j]:=b[j]+1; nom:=j;
end;
end;

Т.е если в столбце есть хоть один отрицательный элемент,
то nom есть индекс этого столбца.
надо так

min:=100;
for j:=1 to n do begin
	for i:=1 to m do begin
		if (a[i,j]<0) then 
	b[j]:=b[j]+1;
	end;
	if b[j]<min then begin
		indeks:=j;
		min:=b[j];
	end;
end;

[alexantonov]

сортировка у меня правильная мы с училкой решали так, а вот наибольшее кол-во отриц. не правильно

[Грымзик]

А я ничего про сортировку и не говорю, я говорила только
про заполнение массива b

[alexantonov]

в матрице a[1..n,1..m] упорядочить эл-ты столбца, содержащего наибольшее кол-во отриц. чисел по убванию

вопрос а как сделать если таких столбцов(одинаковых) 2 чтоб не просто первый сортировал а 2


uses crt;
const n=3; m=3;
var a:array[1..n,1..m] of integer;
var b:array[1..m] of integer; pr:boolean;
i,j,nom,max,buf,k,min,indeks:intege r;
begin
clrscr;

randomize;
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=-5+random(10);
write (a[i,j]:4);

end;
writeln;
end;
min:=-100;
for j:=1 to n do begin
for i:=1 to m do begin
if (a[i,j]<0) then
b[j]:=b[j]+1;
end;
if b[j]>min then begin
indeks:=j;
min:=b[j];
end;

end;
k:=n;
repeat pr:=false; k:=k-1;
for i:=1 to k do
if a[i,indeks]<a[i+1,indeks]
then begin buf:=a[i,indeks];
a[i,indeks]:=a[i+1,indeks];
a[i+1,indeks]:=buf;
pr:=true;
end;
until not pr;
for i:=1 to n do begin
for j:=1 to m do begin
write(a[i,j]:4);end; writeln;
end;
end.