Bonjour à tous,

Problème simple pas si simple à résoudre

Tab1 et Tab2 sont deux variables déclarées comme array of integer classés par valeurs ascendantes par la procédure :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure BubbleSort(var tabNote: array of Integer);
var
  i,j: integer;
  temp: integer;
begin
  for i := high(tabNote) downto low(tabNote) do 
    for j := low(tabNote) to high(tabNote)-1 do 
      if tabNote[j] >tabNote[j + 1] then 
      begin
        temp := tabNote[j];
        tabNote[j] := tabNote[j + 1];
        tabNote[j + 1] := temp;
      end;
end;
Je veux savoir si tous les entiers de tab2 appartiennent à tab1 et sinon lequel (ou lesquels) n'appartien(en)t pas à tab1 ? et dans ce dernier cas comment introduire le ou les entiers manquant dans tab1

Quelqu'un aurait-il une idée si possible en code source ?

Merci à tous