2. Для чего нужно это окно?а Стили фона"Оцвета -[A] Шрифты "Oэффекты -0 Скрыть фоноeые рисункиФон​

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  var k,p:integer;
  Write('Строки с какими номерами поменять? '); Read(k,p);
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  a.SwapRows(k-1,p-1);
  Writeln('*** Матрица-результат ***');
  a.Println(4)
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
Строки с какими номерами поменять? 2 5
*** Исходная матрица [5,8] ***
 -79  16 -87 -77 -93  94 -21 -16
 -63 -35  58 -52 -89 -54 -32 -65
  16  23  72  99  39 -46  66 -80
 -85  62 -29 -14  95  69 -58  -5
 -70 -47 -25 -48  33  42 -82 -12

*** Матрица-результат ***
 -79  16 -87 -77 -93  94 -21 -16
 -70 -47 -25 -48  33  42 -82 -12
  16  23  72  99  39 -46  66 -80
 -85  62 -29 -14  95  69 -58  -5
 -63 -35  58 -52 -89 -54 -32 -65

получить 14 с наименьшей цифрой - 9 и 5, а 12 - 9 и 3. Ставим 3 впереди, имем 395.

Следующий код на Python это подтверждает:

def change_3dig():
    n = 100
    while n < 1000:
        digits = (n // 100,
                  n % 100 // 10,
              n % 10)
        sums = (digits[0] + digits[1],
                digits[1] + digits[2])
        res = str(max(sums)) + \
          str(min(sums))
        yield (n, int(res))
        n += 1

ans = [(n1, n2) for n1, n2 in change_3dig() if n2 == 1412]
print(min(ans))

Вывод:
(395, 1412)