voila mon code,il est juste?
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 intersection(a1,b1:tab;n1:integer;var inter1:tab;var s1:integer);
var i,j:integer;
begin
s1:=0; 
 for i:=1 to n1 do
  begin
  for j:=1 to n1 do
   begin
   if a1[i]=b1[j] then
    begin
    inter1[i]:=a1[i] ;
    s1:=s1+1; {pour determiner la taille du nouveau tableau inter}
    end;
   end;
  end;
end;