Delphi, Durchschnitt, mittlere Zahl, Median ausgeben

Hallo,

ich habe ein Programm, welches mehrere Zahlen (maximal 10) erhält - jede wird per Eingabe eingegeben und in Zahlenfolge abgelegt.

Nun soll das Programm den Durchschnitt dieser Zahlen ausgeben,
habe das Ganze wie folgt gelöst, allerdings erhalte ich mit div nur ganze Zahlen.

function TFrmUebung.Durchschnitt: Integer;
var d: Integer;
begin
  d:=0;
  for i:=1 to e do
  d:=d+Zahlenfolge{i}; *
  d:=d div e;
  result:=d;
end;

Nun soll noch die mittlere Zahl ausgegeben werden, sprich es werden die Zahlen 4, 6, 9 übergeben, das Programm muss die Zahl 6 ausgeben.

function TFrmUebung.MittlereZahl: Integer;
var m: Integer;
begin
  m:=e div 2;
  result:=Zahlenfolge[m];
end;

Auch hier klappt das mit div nicht so ganz
Im Beispiel wird 4 ausgegeben.
e = die Anzahl der Eingaben
3 Eingaben / 2 = 1,5 -> 1 wird durch div ausgegeben,
Zahlenfolge[1] ist 4.

Desweiteren muss das Programm den Median (die Mitte) bestimmen, aber da habe ich keine Ahnung, wie ich da vorgehen soll.

* [ ] habe ich mit { } ersetzt.

-void

Durschnitt habe ich mittlerweile gelöst

-void

EDIT: Was ist der Unterschied zwischen Median und der mittleren Zahl :confused:

Zitat

Original geschrieben von Michael P.
hmm... kann es sein, dass mit "mittlerer Zahl" bei Dir die mittlere Zahl der -- potentiell unsortierten -- Zahlenreihe gemeint ist?

Ja, du hast recht. Habe das mittlerweile auch rausgefunden