Application

Ecrire un programme pascal intitulé (Recherche) qui permet de chercher dans un Tableau de caractéres Les occurrences d'un caractére C donné. On demande d'afficher les indices correspondants à ces occurrences d'une façon décroissante.

Bonjour,
Program recherche;
Var
T: array[1..100] of char;
TO: array[1..100] of char; /* tableau des occurrences */
i: integer;
C: char;
N: integer; /* taille du tableau */
Nb: integer; /*nombre occurrence */
Begin
Write('Donner la taille du tableau :');
Readln(N);
For i=1 To N do
Readln(T[i]);
Write('donner le caractère à rechercher :');
Readln(C);
Nb:=0;
For i=1 To N do begin
If T[i]=C then begin
Nb:=Nb+1;
TO[Nb]:=i;
End if;
End; /* fin for */
Writeln('Il y a ', Nb, ' occurrences du caractère ', C);
Writeln('Voici la table des indices :');
For i=Nb To 1 do
Writeln(TO[Nb]);

End.

Bon courage.