% Aufgabe 1a

clc;
clear all;

% 10000 Würfe
w=randi(6,1,10000);

% Mittelwert aller Würfe
Mittelwert=mean(w)

% Median ermitteln
Median=round(Mittelwert)

% Standardabweichung ermitteln
Std_Abweichung=std(w)

% Diagramm erstellen
hist(w, unique(w))
title(['10000 Würfe - Mittelwert: ' num2str(Mittelwert),'  Median: ' num2str(Median),'  StdAbw: ' num2str(Std_Abweichung)])