Summe ausgeben, nur wie?

**Sn00bY**

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.

Summe ausgeben, nur wie?

Summe ausgeben, nur wie?

Forumregeln