Exsrs

achref -  
 grad -
Bonjour,
je suis aussi un éleve de bac info et je veux des probs en pascal.
et j'ai un exercice si difficile que je veux connaitre sa sol° svp:
je veux faire une teste dans un tab pour que chaque entier doit existe exactement deux fois dans le tab .
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. grad
     
    pour les exercices tu cliques ici

    Pour le problème,voici le programme:

    Program test;

    Uses wincrt ;
    Var i,j,dim,:integer;
    A,t:array[1..100] of integer;
    Label lab1,lab2;

    Begin
    Write('Donnez le nombre de cellules dans votre tableau');
    read(dim);
    For i:=1 to dim do
    Begin
    read A[i];
    For j:=1 to dim do
    Begin
    If A[i]=A[j] then t[i]:=t[i]+1
    Else goto lab1;
    Lab1:
    End;
    If t[i]<>2 then write(A[i],’n’’existe pas 2 fois’)
    Else goto lab2;
    Lab2:
    End;
    End.
    0