[inti007]

Hi myGully User! OS: Windows 7HP x86

Ich spiele mich jetzt schon den ganzen Tag mit der Applikation...
Man soll einen Algorithmus programmieren, der die 2 größten natürlichen Zahlen ausgibt.
Man sollte auch unendlich viele Zahlen einbauen können.

Hier mal ein Zwischenergebnis von mir:

	readLn(eingabe);
	maxi:=eingabe;
	max:=eingabe;
	zaehler:=1;
                       REPEAT
				
					readLn(eingabe);
	
				
						IF ((eingabe > maxi) AND (eingabe >= 0)) THEN		
							BEGIN
								maxi:=max;							
								maxi:=eingabe;						
							END
							
						ELSE
						
						IF ((eingabe < maxi) AND (eingabe > max) AND (eingabe >= 0)) THEN
							BEGIN
								max:=eingabe;
							END
						
						ELSE
						
						IF (eingabe >= 0) THEN
							BEGIN
							END
						
				UNTIL (eingabe < 0);

Mein Problem ist, dass ich immer wenn ich eine neue größte Zahl eingebe, die größte Zahl verschwindet und nicht zur zweitgrößten wird. Eigentlich hätte ich es in den Code geschrieben, aber naja, es funzt eben nicht.
Bitte um Hilfe.


LG

-edit-

IF ((eingabe > maxi) AND (eingabe >= 0)) THEN		
							BEGIN
								max:=maxi;							
								maxi:=eingabe;						
							END

max statt maxi, wobei maxi die größte und max die zweitgrößte zahl ist.