PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив ***');
var a := MatrRandom(5, 4, -5, 12);
a.Println(4);
Writeln('*** Полученный массив ***');
for var i := 0 to a.RowCount - 2 do
begin
var j := a.Row(i).IndexMin;
a[i, j] := -a[i, j]
end;
a.Println(4)
end.
