Exercice: le kième minimum d'un tableau

j'ai exécuté l'algorithme en pascal mais en remplacant les doublants par la valeur maximale et je me suis tombée dans le meme truc, le remplacement se fait uniquement pour la première occurrence, je me suis étonnée parceque on utilise la boucle pour et le test se fait tout le long du tableau, svp je veux une explication?

Bonjour,

de quel algorithme tu parles?

Je crois que ce sujet est lié à un autre...

merci pour la réponse, l'algorithme concerne l'exercice pascal du recherche du kième plus petit éléments du tableau, je m'excuse car j'ai mélangé un peut les sujets parceque je suis nouvelle et je commence maintenant à comprendre le système du forum, mais j'ai voulu aider la personne qui l'a publié à trouver la solution, j'ai remplacée les doublants par la valeur maximale, j'ai trouvé que le remplacement ce fait uniquement pour la première occurrence pour cela j'ai voulue quelqu'un me répondre pourquoi?

Code:

program ex2;
uses wincrt;
type tab=array[1..100]of integer;
var el,max,n,nb,pos,k:integer;
t:tab;
procedure saisie(var n,k:integer; var t:tab);
var i :integer;
begin
repeat
write('n=');
readln(n);
until n>=2;
writeln('**** les elements de t ****');
repeat
for i:=1 to n do
readln(t[i]);
until t[i]>=0;
write('k=');
readln(k);
end;
function maximum(t:tab;n:integer):integer;
var mx,h:integer;
begin
mx:=1;
for h:=2 to n do
if t[h]>t[mx]
then
mx:=h;
writeln(t[mx]);
maximum:=mx;
end;
procedure recherche( var t:tab; max,n,k:integer;var el,nb,pos:integer);
var j:integer;
function cherche_min(t:tab; n,max:integer):integer;
var pmin,min,i:integer;
begin
min:=t[max]+1;
pmin:=1;
for i:=1 to n do
begin
if t[i]


la solution est incomplète...

Code:

begin
if t[i]

...

voici le code :
[program ex2;
uses wincrt;
type tab=array[1..100]of integer;
var el,max,n,nb,pos,k:integer;
t:tab;
procedure saisie(var n,k:integer; var t:tab);
var i :integer;
begin
repeat
write('n=');
readln(n);
until n>=2;
writeln('**** les elements de t ****');
for i:=1 to n do
repeat
readln(t[i]);
until t[i]>=0;
write('k=');
readln(k);
end;
function maximum(t:tab;n:integer):integer;
var mx,h:integer;
begin
mx:=1;
for h:=2 to n do
if t[h]>t[mx]
then
mx:=h;
maximum:=mx;
end;
procedure recherche( var t:tab; max,n,k:integer;var el,nb,pos:integer);
var j:integer;
function cherche_min(t:tab; n,max:integer):integer;
var pmin,min,i:integer;
begin
min:=t[max]+1;
pmin:=1;
for i:=1 to n do
begin
if t[i]

voila le reste du code

Code:

procedure recherche( var t:tab; max,n,k:integer;var el,nb,pos:integer);
var  j:integer;
function  cherche_min(t:tab; n,max:integer):integer;
var pmin,min,i:integer;
begin
min:=t[max]+1;
pmin:=1;
for i:=1 to n do
begin
if t[i]<min
then
begin
min:=t[i];
pmin:=i;
end;
end;
cherche_min:=pmin;
end;
begin
nb:=0;
repeat
pos:=cherche_min(t,n,max);
el:=t[pos];
for j:=1 to n do
begin
if t[j]=t[pos]
then t[j]:=t[max]+1;
write(t[j],'*');
end;
writeln;
nb:=nb+1;
until  (nb=k) ;
end;
procedure affiche(nb,pos:integer; t:tab);
var i:integer;
begin
if nb=k
then writeln('le', k,'eme plus petie element est: ',el, ' et la positionde sa premiere apparitionest ', pos)
else writeln('pas de',k,' eme element minimal');
end;
begin
saisie(n,k,t);
max:=maximum(t,n);
recherche(t,max,n,k,el,nb,pos);
affiche(nb,pos,t);
end.