|
Rangs des élèments dans un tableau |
 |
 |
|
Written by Administrator
|
|
Friday, 06 March 2009 14:33 |
Enoncé de l'exercie
Ecrire un programme en Pascal qui permet de :
- Saisir aléatoirement N entiers dans le tableau T.(n<=50).
- Afficher le rang de chaque élément de T.
Solution en Pascal
Program rang;
uses wincrt;
var T:Array[1..50]of integer;
N,i,Rg,j:integer;
begin
repeat
read(N);
until(N in [1..50]);
for i:=1 to N do
T[i]:=random(100);
for i:=1 to N do
begin
Rg:=1;
for j:=1 to N do
if(T[i]>T[j])Rg:=Rg+1;
write('Le rang de ',T[i],':',Rg);
end;
end.
{
Remarque :
Pour déterminer le rang d'un élément T[i] il suffit de calculer le nombre des éléments de T qui sont superrieurs strictement à celui-ci ,le rang de T[i] est égal à ce nombre + 1.
}
|
Exercices 