# Programm Median

## Problembeschreibung:

*******************************************
Dokumentnummer: D1271
Quelle: Johann Weilharter,
             Stochastik
*******************************************

Der Median einer Urliste ist ohne Verwendung
eines Unterprogramms zu bestimmen.

## Problemlösung:

kill(all);

EINGABE

x:read("Gib die Liste mit den Merkmalsausprägungen ein");

VERARBEITUNG

xsort:sort(x);

n:length(xsort);

gerade:0;

if abs(n/2-floor(n/2.0))<0.001 then gerade:1$

m:floor(n/2.0);

AUSGABE

if gerade=0 then print("Median =",xsort[m+1])$

if gerade=1 then print("Median =",(xsort[m]+xsort[m+1])/2.0)$