Program Arrays;{ЛР1 - Коновалов К.4642}
{В заданной матрице поменять местами последнюю строку со строкой,
содержащей минимальный элемент матрицы.
Входные данные: str - количество строк матрицы
                stb - количество столбцов
                A - матрица целых чисел.
Выходное данное:A - преобразованная матрица.}
Const R=10;
Type Tind=1..R;
     Tmas=Array [Tind] Of Integer;
     Tmatr=Array [Tind,Tind] Of Integer;
Var k,i,str,stb,j,strm,stbm:Tind;
    A:Tmatr;
    T,max:Integer;
Begin {$R+}
     {Преобразование матрицы}
     Write ('Введите количество строк и столбцов:');
     ReadLn(str,stb);
     Write ('Введите матрицу размером ',str,' * ',stb,' : ');
     For i:=1 To str
     Do For j:=1 To stb
        Do Read (A[i,j]); ReadLn;
     max:=A[1,1];strm:=1;
     For i:=1 To str
     Do Begin For j:=1 To stb
              Do Begin If max<A[i,j]
                       Then Begin max:=A[i,j];
                                  strm:=i;
                            End;
                 End;
        End;
     For j:=1 To stb
     Do Begin T:=A[strm,j];
              A[strm,j]:=A[str,j];
              A[str,j]:=T;
        End;
     WriteLn('Преобразованная матрица:');
     For i:=1 To str
     Do Begin For j:=1 To stb
              Do Write(A[i,j],' ');
              WriteLn;
        End;
     ReadLn;
End.