Question

помогите с 3, пожалуйста
двумерные массивы, Паскаль

Answer 1

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.