Bonjour, je dois résoudre un exercice avec turbo pascal et je ne sais comment faire.
Voici l’énonce :
 
20 nombres entiers entre 100 et 200 compris sont créés au hasard par l’ordinateur. Il faut :
 
- afficher ces nombres à l’écran
- calculer et afficher la somme et la moyenne arithmétique des nombres pairs.
 
C’est la 2eme partie qui me pause problème.
 
Voici ce que j’ai ecrit :
 
program exercice3;
uses crt;
var i,nombre,compteur:integer;
moyenne: real;
begin
clrscr;
randomize;
compteur:=0;
 
for i := 1 to 20 do begin
nombre:= 100 + random (101);
compteur:= compteur + nombre;
writeln(nombre);
end;
 
writeln;
moyenne:= compteur/20;
writeln ('la moyenne est de:',moyenne:10:2);
writeln('le total est de:',compteur);
readln;
end.
 
Donc le problème est que, écrit comme cela, ca fait la somme et la moyenne de tout les nombres.
Donc ce n’est pas bon mais je ne voit pas comment faire pour juste faire la somme et la moyenne des nombres pairs
Je dois utliser MOD mais je ne sais pas comment écrire le prog pour que cela fonctionne.
Pouvez vous m’aider.
 
merci
 

jai trouver c bon