Bonjour,

Je dois résoudre un problème en Pascal , Je dois créer un tableau 10 X 10 qui s'affiche à l'écran avec des nombres de 1 à 8 qui sortent de façon aléatoire (fonction Random). De plus, je dois créer un deuxième tableau qui va montrer combien de fois chacun des nombres sort dans le premier tableau ... après plusieurs heures, je n'y arrive toujours pas ... J'arrive à calculer mais je n'arrive pas à faire afficher mon premier tableau

Voici mon programme :

program Matrice

type tableau=array[1..10,1..10] of integer;
suivi=array[1..8] of integer;

procedure remplir(var t:tableau; var s:suivi);
var i,j,n:integer;
begin
s[1]:=0; s[2]:=0; s[3]:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
n:=random(8)+1; // random(9) renvoie un nombre entre 0 et 8 d'où le +1
t[i,j]:=n;
inc(s[n]);
end;
end;

var s:suivi; t:tableau; n:integer;
begin
randomize; // réinitialise le générateur de nombre aléatoire
remplir(t,s);
for n:=1 to 8 do
writeln('occurence des ',n,' dans le tableau = ',s[n]);
readln;
end.

Merci de m'aider

Configuration: Windows XP
Internet Explorer 7.0