Bonjour,

j'ai un petit problème de calcul.

je veut savoir combien de fois le nombre x apparait dans mon tableau, mais je fais une erreur a un endroit dans mon programme.
si quelqu'un peut m'aider et commenter si possible mais erreurs cela serait grandement apprécier car je débute en programmation et je veut savoir ce que je fait.

Présentement tableau apparait 10X10 et il me dit:
Il y a 0 nombre1
""
""
""
Il y a 0 nombre 8.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program Tableau;
 
type
  tab1=array [1..10, 1..10] OF integer ; //10 lignes= i, 10 colonnes= j
  tab2=array [1..8] of integer;  //classer nombre
var
  b,c,d,e,f,g,h,j,k,n:integer;
  a:tab1;
  i:tab2;
begin
 
 randomize;
  for d:=1 to 10 do
    begin
      for e:=1 to 10 do
        begin
	           k:=random(8)+1;
             a[d,e]:=k;       // k = valeur de l'élément du tableau
              write(a[d,e],' ');
               end;
                  writeln; // retour a la ligne pour faire la boucle des 10 lignes
                    end;
                      read;
              begin
                   i[1]:=0; i[2]:=0; i[3]:=0; i[4]:=0;
                    i[5]:=0; i[6]:=0; i[7]:=0; i[8]:=0;      // chaque nombre commence à 0
                     i[k]:=n;
                      n:=n+1;
                end;
 
                    for j:= 1 to 8 do
                      begin
                            f:=f+1;
                             writeln('Il y a ',i[n],' nombre ',f);
 
                               end;
                                  readln;
 
end.
Merci