Löschen ungerade Zahlen in einem Feld

[escargot]

Also erstmal Hallo

Ich habe eine klitzekleines Problem.
Ich soll ein Feld erzeugen mit Zufallszahlen (das ist kein Problem, hab ich hinbekommen).
So und aus diesem Feld soll ich nun alle ungerade Zahlen löschen.
Leider hab ich kein Plan wie ich an die Sache rangeh soll.
Hat vielleicht jemand einen Tipp für mich?
Danke im voraus

[mkinzler]

Was neinst du mit Feld?
BTW. falsches Unterforum.

[Matze]

Hallo,

so kannst du überprüfen, ob eine Zahl ungerade oder gerade ist:

Delphi-Quellcode:

if zahl mod 2 = 0 then
  // gerade
else
  // ungerade

bzw. direkt

Delphi-Quellcode:

if zahl mod 2 <> 0 then
  // ungerade

PS: mod liefert dir den Rest einer Ganzzahldivision.

Edit: Es gibt sogar die Funktion odd, die genau das machst, was du gerne hättest:

Online-Hilfe:

Gibt true zurück, wenn das Argument eine ungerade Zahl ist.

Unit
System

Syntax

[Delphi] function Odd(X: Integer): Boolean;

[escargot]

Logisch
Sry das ich im falschen Thema bin

[FAlter]

Hi,

Zitat von mkinzler:

Was neinst du mit Feld?

ein Array. Unsere Info-Leher sagen auch immer Feld dazu, und die Schüler lernen dann, dass array = Feld. Ich glaube, sogar auf Wikipedia steht das so, und dass Datenreihe veraltet wäre. Aber mir gefällt Datenreihe besser. Ein Fehl ist für mich eben was anderes.

Nimm eine Zählschleife und eine Hilfsvariable für den neuen Index (am Anfang die Untergrenze). Bei einer geraden Zahl kopierst du diese an die Stelle mit dem neuen Index und erhöhst den neuen Index, bei einer ungeraden eben nicht. Am Ende setzt du mit SetLength die neue Länge des Arrays.

Mfg
FAlter