Turbo pascal: problème pour résoudre un exercice

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 crois que c’est soit avec la fonction DIV ou MOD mais je n’en suis pas sur.
Pouvez vous m’aider.

merci

c'est quoi TEMP? pk tu parle de note? je ne comprend pas.
et tu dis qu'il faut utliser le MOD mais dans la résolution que tu me donne, tu ne le mets pas pk?

dsl mais je débute

je te remercie de m'aider

oui je te remercie beaucoup

afin de savoir si vtr i est pair ou pas il suffit juste de faire
test:=false ;
if t[i] mod 2 = 0 then
test := true ;
writeln ('le nbr est pair')
else
writeln('lenbrest impair');

Salut
Pour vérifier la pariété d'un entier a vous pouvez utiliser la fonction ODD(a) qui retourne vrai si a est impair et faux sinon.
Autrement dit :
.
.
.

p:=0;
S:=0;
FOR i:=1 TO 20 DO
Begin
nb:=RANDOM(101)+100;
Write('Le ',i 'ème nombre est : ',nb)
If Not (ODD(nb)) then
Begin
p:=p+1;
S:=S+nb;
end;
end;
Writeln('la somme des nombres impairs est: ',S);
Write('la moyenne arithmétique est: ',(S/p):0:2);
end.