1+1=0 definieren?

[Ari]

Das Ganze mod 2 zu rechnen ist eine gute Idee - nur komischerweise bekomme ich auch den Wert "-1" angezeigt und generell scheint mein Gleichungssystem überhaupt nicht zu funktionieren. Die Integer-Werte meines GLS sind auch sehr ungewöhnlich, mal 6, mal 21, mal -45600 oder sowas
Also, ich möchte aus dem Array arr je neun Elemente aufsummieren und den Wert 1 erhalten, also quasi
arr[1,1,1]+...+arr[1,1,9]=1
haben.

Delphi-Quellcode:

var arr: array [1..9, 1..9, 1..9] of integer; a:integer;

      a:=(arr[1,1,1]+arr[1,1,2]+arr[1,1,3]+arr[1,1,4]) mod 2;
      a:=1;
      Label2.Caption:=IntToStr(arr[1,1,1] mod 2);
      Label3.Caption:=IntToStr(arr[1,1,2] mod 2);
      Label4.Caption:=IntToStr(arr[1,1,3] mod 2);
      Label5.Caption:=IntToStr(arr[1,1,4] mod 2);

Das GLS muss so wohl komplett falsch konstruiert sein, oder?