Hab die hälte hinter mir:
Code:
type TFeld = array of array of integer;
var
Feld : TFeld;
n, ZS, z, s : integer;
begin
ZS := 0;
write ('Wie gross soll der Wuerfel sein? '); readln (n);
Setlength(Feld,1,n);
for z:=1 to n do
begin
writeln;
writeln;
writeln;
for s:= 1 to n do begin
ZS:= ZS + 1;
write ('| ',ZS:4);
end;
end;
readln;
Wie bringe ich es jetzt dazu, die Gesamte Summe des Feldes (notwendig für die einzelnen Summen der Waage-/ Senkrechten und einer Diagonalen [Summe / n] auszugeben
UND
es von alleine so anzuordnen, damit überall die "kleine" Summe gleich ist.
Bitte um rat.