Zitat von
JumpFrog:
Ich weiß nicht wieso weil es eigentlich beim ersten durchlaufen der schleife eine endlosschleife ergeben müsste.
Delphi-Quellcode:
...
while x<=5 do
begin
If Feld[a]>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1
end;
...
deine Einrückung ist falsch
wenn du sie richtig machst, wird der fehler klarer:
Delphi-Quellcode:
while x<=5 do
begin
If Feld[a]>=10 then
zahl:=zahl+1;
a:=a+1;
x:=x+1
end;
wie du siehst, bleiben beide Seiten der Bedingung gleich (also ungleich
), der index des arrays wird erst nach verlassen der while-schleife gesetzt.
HTH Frank