Массив Опции

[Артурио]

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

[Артемий]

Попробуй так: сдесь меняется знак:

const
n=3;
var
i,o,c: Integer;
arr: array [1..n,1..n] of Integer;
begin
for i:=1 to n do begin
 for o:=1 to n do begin
  readln(arr[i,o]);
 end;
end;
for i:=1 to n do begin
 for o:=1 to n do begin
  if arr[i,o]>0 then begin
   arr[i,o]:=-arr[i,o];
   Continue;
  end;
  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;
 end;
end;
for i:=1 to n do begin
 writeln;
 for o:=1 to n do begin
  write(arr[i,o],' ');
 end;
end;
readln

Добавлено через 1 мин.
Да приведи кстати пример числа обратного по величине..Никак не додумал что в этой фразе имеется ввиду.