Discussion :

[mah00]

voila ce que j'ai fait

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
procedure saisie(n1:integer;var a:tab);
var i,j:integer;
    v:boolean;
begin
v:=false;
 for i:=1 to n1 do
 begin
  repeat
   write('donner l''élement num ',i,' du tableau: ');
   readln(a[i]);
    for j:=1 to n1 do
     if a[j]=a[i] then
      v:=true;
  until v=false;
  end;
end;

je crois que mon erreur est avec la variable booleénne,mais j'ai pa su la corriger.
Si vous pouvez m'aidez ca serait super!!