Сортировка Матрицы Опции

[LoveInLife]

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

а я что то не то натворил....помогите разобраться.....

[volvo]

Типы оформи вот так:

Const R=10;
Type Tind=1..R;
     Tmas=Array [Tind] Of Integer;
     Tmatr=Array [Tind] Of TMas; { <--- !!! }
Var k,i,str,stb,j,strm,stbm:Tind;
    A:Tmatr;
    min:Integer;
    T: TMas; { <--- !!! }

а теперь - о главном: ты с условием разберись, а то здесь пишешь одно, а в файле - другое... Если тебе нужен МИНИМУМ по условию - то вот так:

     min:=A[1,1];strm:=1;
     For i:=1 To str
     Do Begin For j:=1 To stb
              Do Begin If min > A[i,j]
                       Then Begin min:=A[i,j];
                                  strm:=i;
                            End;
                 End;
        End;
      T := A[strm]; A[strm] := a[str]; a[str] := T; { <--- Проще, правда? }

(проверено, все работает...)

Добавлено через 1 мин.
А о сортировке в задании вообще нет ни слова! Обмен двух строк - еще далеко не сортировка...