Массив Опции

[Артурио]

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

[volvo]

  if arr[i,o]<0 then begin
   c:=arr[i,o];
   Dec(arr[i,o],arr[i,o]);
   Dec(arr[i,o],c);
   Continue;
  end;

Это что, новый способ реализации Abs такой? Или что? Ты хоть комментарии оставляй, а то с такими именами переменных и с такой логикой программы не каждый осилит глубину твоей мысли...

Добавлено через 56 сек.

приведи кстати пример числа обратного по величине

Вообще-то X и 1/X еще никто не называл НИКАК иначе, чем "обратные по величине"...