Массив Опции

[Артурио]

В матрице все ненулевые элементы заменить обратными по величине и противоположными по знакам.

[volvo]

В принципе, задача решается в 3 строки:

For i := 1 to n do
  For j := 1 to n do
    if arr[i, j] <> 0 then arr[i, j] := - 1 / arr[i, j];

(только вот массив должен быть НЕ целый, а вещественный)...