[lmikle]

И? В чем проблема то?

Код:

var
  A : Array [1..7,1..7] Of Integer;

procedure TForm1.Button1Click(Sender : TObject);
var
  I, J : Integer;
begin
  For I := 1 To 7 Do
    For J := 7 DownTo I-1 Do // DownTo I - если надо и диагональ менять
      A[I,J] := -1 * A[I,J];
end;