<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.SelectMany(x->x).ToArray; var mx:=b.IndexMax; var mn:=b.IndexMin; Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]); Writeln('*** Матрица-результат ***'); a.Println(4); end.