Bonjour
J'ai fait un code mais je fais appel à une fonction max puis, après, je supprime toutes les occurences. Est-ce que c'est possible de le faire sans faire appel à cette fonction ? Pour ma part, j'ai essayé mais pas réussi. Voilà mon code :
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 maxdelite(var t:tableau; var long:integer);
var IndLect,IndEc,c:integer;
begin
c:=Max(t,long);
IndEc:=1;
for IndLect:=1 to long do 
                        begin
                          if t[IndLect]<>c then
                                begin
                                  t[IndEc]:=t[IndLect];
                                  inc(IndEc);
                                end;
                        end;                     
   long:= IndEc-1;                    
end;