La mediane d'un tableau en PASCAL !!

Fermé
pomolo - 15 déc. 2010 à 20:18
Bonsoir,
Je dois écrire un programme de gestion de tableau, et j'ai choisi de faire une procédure qui trouve la mediane d'un tableau d'entiers, j'ai essayé quelque chose, mais il parait que mon programme ne marche pas bien, en effet, après compilation il n y a pas de fautes détectées, tout est bon, mais après avoir entré le tableau, il me donne pas la bonne mediane, mais une fausse, voici ce que j'ai écris :

n est la dimension du tableau, et i et j sont des compteurs.

procedure mediane;
var j, c : integer;
bool : boolean;
begin
i:=0;
bool:=true;
while (i<=n) and bool do
begin
i:=i+1;
c:=0;
for j:=1 to n do
begin
if i<>j then
if t[i]<t[j] then c:=c+1;
end;
if c=(n+1) div 2 then
bool:=false;
end;
writeln('La mediane du tableau est : ',t[i])
end.

Merci d'avance de me corriger les fautes, ou bien proposer quelque chose de plus simple ^^