Program S6;
Type
tab = array[1..25] Of integer;
Var
t : tab;
n,m,nb : integer;
//*************************************
Procedure saisie(Var t:tab; Var n:integer);
Var
i : integer;
Begin
Repeat
writeln ('Donner un entier ;');
readln (n) ;
Until n In [5..25] ;
For i:=1 To n Do
Begin
write('Donner l"élément n° ',i,': ');
readln(T[i]);
End;
End ;
//*************************************
Function occurrence(t:tab;n,E:integer) : integer;
Var
occ : integer;
i : integer;
Begin
occ := 0;
For i:=1 To n Do
If E=T[i] Then
occ := occ+1;
occurrence := occ;
End;
//*************************************
Procedure max_occ(t:tab;n:integer;Var
m,nb:integer);
Var
i : integer;
Begin
m := occurrence(t,n,T[1]);
nb := T[1];
For i:=2 To n Do
If m<occurrence(t,n,T[i]) Then
Begin
m := occurrence(t,n,T[i]);
nb := T[i];
End;
End;
//*************************************
Begin
saisie(t,n) ;
max_occ(t,n,m,nb);
If m> n Div 2 Then
writeln('L"élément majoritaire dans le tableau est ', nb)
Else
writeln('Il n"existe pas un élément majoritaire dans le tableau');
End.
Inscription à :
Publier les commentaires (Atom)