Задача на матрицы Опции

[RAVE]

Условие задачи: "Сформировать из строк матрицы B матрицу C, расположив строки так, чтобы количество положительных элементов в строке возрастало с увеличением её порядкового номера". Помогите решить её, плз. (процедуры и функции использоваться не должны).

[RAVE]

Хммм.... чёт у мя не вяжется
Вот задача на основе моих знаний +совет выше:

Program ex5;
Const m1=10;
      n1=10;
Type A=array[1..m1,1..n1] of integer;
Var U:A;
    i,j,s1,s2,T,k,m,n:integer;
begin
Writeln('ZADANIE MATRICI');
Readln(n,m);
For i:=1 to m do For j:=1 to n do begin
                                  Write('Znachenie U[',i,' ',j,']=');
                                  Readln(U[i,j]);
                                  end;
Readln;
Writeln('Tekushaya matrica');   
For i:=1 to m do begin For j:=1 to n do                           
                                  Write(U[i,j],' ');
                                  writeln;
                                  end;
Readln;                                                   {непосредственно вычисления, чуть подправленные под мою задачу}
For k:=1 to m-1 do For i:=1 to m-k do begin
                                  s1:=0;
                                  s2:=0;
                                  For j:=1 to n do begin
                                                   If (U[i,j]>0) then Inc(s1);
                                                   If (U[i+1,j]>0) then Inc(s2);
                                                   end;
                                  If (s1>s2) then begin
                                                  T:=U[i,j];
                                                  U[i,j]:=U[i+1,j];
                                                  U[i+1,j]:=T;
                                                  end;
                                  end;
Readln;
Writeln('Novaya Matrica');                {вывод получившейся матрицы}
For i:=1 to m do begin
                 For j:=1 to n do
                               Write(U[i,j],' ');
                               Writeln;
                               end;
Readln;
end.

Но чёт не пашет...
Подскажите, если где ошибка(и) есть

Сообщение отредактировано: RAVE - 4.05.2007 18:31