Program Occ_Pair;
Type
tab = Array [1..20] Of Integer;
Var
n: Integer;
T: tab;
//***************************
Procedure saisir(Var n:Integer);
Begin
Repeat
write('donner la taille du tableau :');
Readln(n);
Until n In [3..20];
End;
//***************************
Procedure remplir(Var T:tab;n:Integer);
Var
i: Integer;
Begin
For i:=1 To n Do
Begin
Repeat
Readln(T[i]);
Until T[i]>0;
End;
End;
//***************************
Procedure afficher(T:Tab;n:integer );
Var i,nbp,nb: integer;
b: boolean;
ch,x: string;
A: array[1..20] Of string;
Begin
i := 0;
nb := 0;
Repeat
ch := '';
nbp := 0;
Repeat
i := i+1;
b := T[i] Mod 2 = 0;
If b Then
Begin
nbp := nbp+1;
str(T[i],x);
ch := ch+x+',';
End;
Until (Not b) Or (i=n);
If nbp>1 Then
Begin
delete(ch,length(ch),1);
nb := nb+1;
A[nb] := ch;
End;
Until i=n;
writeln('Le nombre de séquences premier est ',nb);
writeln('Les séquences d''entiers pairs sont :');
For i:=1 To nb Do
writeln(A[i]);
End;
//***************************
Begin
saisir(n);
remplir(T,n);
afficher(T,n);
End.
Inscription à :
Publier les commentaires (Atom)
