// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('Введите элементы матрицы построчно'); var a:=ReadMatrInteger(n,n); Writeln('Исходная матрица'); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=a.ElementsWithIndexes; var imin:=s.MinBy(t->t[0])[1]; var imax:=s.MaxBy(t->t[0])[1]; if imin<>imax then a.SwapRows(imin,imax); Writeln('Матрица-результат'); a.Println(4); end.
Да правильно
Объяснение:
Но в I где 79 поставь 80 а где 80 81