Program recherche_major;
Type tab=array [1..25] of integer;
Var
t:tab;
p, n:integer;
(********************************************)
Procedure saisie(var n:integer;var t:tab);
Var i:integer;
Begin
Repeat
Write('n = ');
Readln(n);
Until n in [5..25];
Writeln ('Saisir les ', n, ' éléments de T');
For i := 1 To n Do
Readln (T[i]);
End;
(*******************************************)
Function major_existe(n:integer;t:tab;var p:integer):boolean;
Var i,j,occ:integer;
Begin major_existe:=false;
For i:=1 to n do
Begin occ:=0;
For j:=1 to n do
If t[i]=t[j] Then occ:=occ+1;
If occ > (n div 2) Then
Begin major_existe:=true;
p:=i;
End;
End;
End;
(********************P.P*********************)
Begin saisie(n,t);
If major_existe(n,t,p)
Then
Writeln (t[p],' est majoritaire')
Else
Writeln ('pas d''élément majoritaire');
End.
UHJvZ3JhbSByZWNoZXJjaGVfbWFqb3I7ClR5cGUgdGFiPWFycmF5IFsxLi4yNV0gb2YgaW50ZWdlcjsKVmFyCnQ6dGFiOwpwLCBuOmludGVnZXI7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKikKUHJvY2VkdXJlIHNhaXNpZSh2YXIgbjppbnRlZ2VyO3ZhciB0OnRhYik7ClZhciBpOmludGVnZXI7CkJlZ2luClJlcGVhdApXcml0ZSgnbiA9ICcpOwpSZWFkbG4obik7ClVudGlsIG4gaW4gWzUuLjI1XTsKV3JpdGVsbiAoJ1NhaXNpciBsZXMgJywgbiwgJyDDqWzDqW1lbnRzIGRlIFQnKTsKRm9yIGkgOj0gMSBUbyBuIERvIApSZWFkbG4gKFRbaV0pOwpFbmQ7CigqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKQpGdW5jdGlvbiBtYWpvcl9leGlzdGUobjppbnRlZ2VyO3Q6dGFiO3ZhciBwOmludGVnZXIpOmJvb2xlYW47ClZhciBpLGosb2NjOmludGVnZXI7CkJlZ2luIG1ham9yX2V4aXN0ZTo9ZmFsc2U7CkZvciBpOj0xIHRvIG4gZG8KQmVnaW4gb2NjOj0wOwpGb3Igajo9MSB0byBuIGRvIApJZiB0W2ldPXRbal0gVGhlbiBvY2M6PW9jYysxOwpJZiBvY2MgPiAobiBkaXYgMikgVGhlbiAKQmVnaW4gbWFqb3JfZXhpc3RlOj10cnVlOwpwOj1pOwpFbmQ7CkVuZDsKRW5kOwooKioqKioqKioqKioqKioqKioqKipQLlAqKioqKioqKioqKioqKioqKioqKiopCkJlZ2luIHNhaXNpZShuLHQpOwpJZiBtYWpvcl9leGlzdGUobix0LHApClRoZW4KV3JpdGVsbiAodFtwXSwnIGVzdCBtYWpvcml0YWlyZScpCkVsc2UKV3JpdGVsbiAoJ3BhcyBkJyfDqWzDqW1lbnQgbWFqb3JpdGFpcmUnKTsKRW5kLg==