Am meisten vorkommende Zahl

[r00t]

Vielen vielen Dank an alle und besonders an Marabu, das ganze klappt wunderbar Ich sag nur

[marabu]

Hallo Leute,

Hagen hat mich noch auf ein paar Dinge aufmerksam gemacht, die ich euch nicht vorenthalten will:

Zum einen lässt sich der Code an einer Stelle noch eleganter formulieren - was ich gleich eingebaut habe.

Leider ist der Code so nicht produktionsreif - I/O-Fehler bei Reset() und ReadLn() werden nicht abgefangen.

Dann habe ich mit AssignFile(), CloseFile() etc. auf Prozeduren zurückgegriffen, die eigentlich nur noch in legacy code verwendet werden sollten. Moderne Programme arbeiten mit Streams.

Und schließlich sollte bedacht werden, dass die Verwendung der vordefinierten File-Variable INPUT die Einbettung des Codes in ein eigenes Programm, welches diese Variable auch verwendet, erschweren könnte.

Mein Dank geht an Hagen für sein aufmerksames Korrekturlesen.

marabu