Programme sur des probabilités

Alors je voilà je rencontre un petit problème sur un programme à des endroits je suis blouqé!
D'abord voici l'énoncé...
on lance une pièce
pour k€N*, Xk une variable qui vaut 1 quand le keme lancer amène Pile et 0 sinon.Construire un programme en turbo pascal afin qu'il simule les m varaibles X1,X2,...Xm(dont les valeurs seront placées dans le tableau X) et détermine les valeurs de N1,N2,..,Nm(qui seront stockées dans le tableur N)

-m étant une valeur entiere, inférieure à 100,entrée par l'utilisateur
-On note Nn le nombre de série lors des n premiers lancé (on va s'intéresser aux succession de lancers amenant un même côté)

Voici mon programme incomplet...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

program simulation; type suite=array[1..100]of integer; var X, N :suite; m;i:integer; begin readln(m) randomize; X[1]:= ;N[1]:= ; for i:=2 to m do begin X[i]:= end end.

---

je pense que j'ai dû oublier une ou eux lignes et et les valeurs de X[1] et N[1]
voilà mercie d'avance pour votre aide

Pense aux balises [code];

Citation:

---

Envoyé par theblinker

Voici mon programme incomplet...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

program simulation; type suite=array[1..100]of integer; var X, N :suite; m;i:integer; begin readln(m) randomize; X[1]:= ;N[1]:= ; for i:=2 to m do begin X[i]:= end end.

---

---

On mettant X[1]:=; Tu veux que l' ordinateur complete à ta place ou quoi ?

Je pense qu'il souhaitait que l'on complète.
Je propose cette solution, si vous en avez une meilleure n'hésitez pas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program simulation; type suite=array[1..100] of Integer; var X, N:suite; m,i:integer; begin readln(m); randomize; X[1]:=random(2); N[1]:=1; for i:=2 to m do begin X[i]:=random(2); if X[i]=X[i-1] then N[i]:=N[i-1] else N[i]:=N[i-1]+1; end end.

---

Si tu veux tu peux rajouter des writeln pour voir tes résultats