// Médiane, quartiles, déciles et centiles d'une série statistique (S).
// Entrées :
S=input("S=");// Série statistique donnée = vecteur-ligne.
// Fin des entrées.
Y=trier(S);
n=size(S,"c");// Taille de S.
// Calcul de la médiane
r=reste(n,2);// Division euclidienne de n par 2.
q=quotient(n,2);// quotient  
  if r==0 then 
    med=(Y(1,q)+Y(1,q+1))/2; 
  else 
    med=Y(1,q+1); 
  end
// Calcul des quartiles q1 et q3.
Quartiles=[];
q1=Y(1,ceil(n/4));
q3=Y(1,ceil(3*n/4))
// Calcul des déciles d1 et d9.
d1=Y(1,ceil(n/10));
d9=Y(1,ceil(9*n/10));
// Calcul des centiles
c1=Y(1,ceil(n/100));
c99=Y(1,ceil(99*n/100));
// Sorties :
disp("La médiane est égale à " +string(med))
disp("Le premier quartile est " +string(q1))
disp("Le troisième quartile est " +string(q3))
disp("Le premier décile est " +string(d1))
disp("Le dernier décile est " +string(d9))
disp("Le premier centile est " +string(c1))
disp("Le dernier centile est " +string(c99))