Anweisung in if und for

[luciseli]

Sorry etwas kompletter nochmal:

Code:

test[1]:= z1;
  test[2]:= z2;
  test[3]:= z3;
  test1[1]:= z1;
  test1[2]:= z4;
  test1[3]:= z5;

  if eingabe = 1 then
     begin
          for i:= 1 to 3 do
              begin
                   test[i]:= test[i] + 1;
                   test1[i]:= test1[i] + 1;
              end;
          test[1]:= 0;
          test1[1]:= 0;
     end;
  if eingabe = 2 then
     begin
          for i:= 1 to 3 do
              begin
                   test[i]:= test[i] + 1;
                   test1[i]:= test1[i] + 1;
              end;
          test[2]:= 0;
     end;

1. Sollen alle z- variablen hochzählen
2. Soll die eingegebene(eingabe) Zahl auf 0 gesetzt werden