uses School, NumLibABC;
begin
Println('PascalABC.NET', PascalABCVersion);
var a := new Matrix(MatrRandomReal(3, 5, -99, 99, 1));
a.Println(7,1);
Writeln;
var min := a.Value.ElementsWithIndices.MinBy(p -> p[0]);
a.DeleteRow(min[1]+1);
a.DeleteCol(min[2]+1);
var v := a.Value;
v.Println(7,1)
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses School, NumLibABC;
begin
Println('PascalABC.NET', PascalABCVersion);
var a := new Matrix(MatrRandomReal(3, 5, -99, 99, 1));
a.Println(7,1);
Writeln;
var min := a.Value.ElementsWithIndices.MinBy(p -> p[0]);
a.DeleteRow(min[1]+1);
a.DeleteCol(min[2]+1);
var v := a.Value;
v.Println(7,1)
end.