Решить в паскале заполнить двумерный массив n x n случайными числами из интервала [-5; 5] и сменить знак максимального элемента в каждой строке на противоположный .

Const N = 10;
var i, b: integer;
    a: array [0..N] of integer;
begin
     for i := 0 to N - 1 do
     begin
          a[i] := random(10) - 5;
          if (a[b] > a[i]) then b := i;
     end;
     a[b] := a[b] * -1;
     for i := 0 to N - 1 do writeln('[', i, '] => ', a[i]);
end.