переставление столбцов местами, задача Опции

[Tribunal]

характеристикой столбца матрицы называется сумма его отрицательных элементов. Переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик.

делов том,что я пыталась решить эту задачу по образу и подобию упорядочения элементов в одномерном массиве.но цели этой задачи так и не достигла=(

не могли бы вы помочь мне с этой задачей?

[volvo]

Что именно не понятно? Там же приведен пример использования...

Вот, например, приведи промер, КАК ты пыталась решить это по подобию одномерных массивов, я покажу как это перенести на двумерные...

[Tribunal]

ну примерно так:

Код

program swap;

const
row=4;
col=4;
r=10;

var
a:array [1..col,1..row];
s:array [1..row];
i,j,k,t,min:integer;

begin

{ввод матрицы}
randomize;
   for i:=1 to col do
   begin
      for j:=1 to row do
      begin
      a[i,j]:=random( r )+1;
      write(a[i,j]:4);
      end;
      writeln;

for j:=1 to row do
begin
   s[j]:=0;
   for i:=1 to col do
   if a[i,j]<0 then s[j]:=s[j]+a[i,j];
end;

for i:=1 to col do
for j:=1 to row-1 do
begin
min:=j;
for k:=j+1 to row do
if a[k]>a[min] then min:=k;
t:=a[k];
a[j]:=a[min];
a[min]:=t;;
end;

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

end.

Сообщение отредактировано: Tribunal - 29.12.2005 21:34