Exercice 7 page 121: Boucle FOR + Random

Il s'agit de saisir un nombre n > 10, et remplir aléatoirement un tableau de n réels compris entre 0 et 20, puis, :
1) calculer la moyenne arithmétique (MG) du tableau.
2) afficher les nombres qui sont supérieurs à MG, ainsi que leur nombre.

NB:
La fonction RANDOM(N) en Pascal, retourne une nombre entier aléatoire entre 0 et N-1.

Une solution possible est :

Code:


Program EXERCICE_7p121;
uses wincrt;

type
  TAB = array[1..100] of real;

var
  i,N, nbr: integer;
  T: TAB;
  Somme, MG: real;

begin

    Randomize;

    {Saisie d'un nombre >= 20}
    repeat
      write('Donner un nombre > 20: ');
      readln(N);

    until (N >= 20);

    {Repmlissage du tableau aléatoirement}
    for i:=1 to N do
        T[i] := random(21);

    {calcul moyenne arithmétique}
    Somme := 0;
    for i:=1 to N do
        Somme := Somme + T[i];

    MG := Somme / N;
    writeln('La moyenne arithmétique (MG) = ',MG:5:2);

    writeln('Liste des notes supérieures à MG:');
    for i:=1 to N do
        if (T[i] > MG) then
        begin
          writeln('Note n°',i:2,' = ',T[i]:3:0);
          nbr := nbr + 1;
        end;

    writeln('On a exactement ',nbr,' notes > ',MG:5:3);

end.

a+