Drop Down MenusCSS Drop Down MenuPure CSS Dropdown Menu

dimanche 26 avril 2020

Baccalauréat 2013 Sujet 6 Corrigé

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.
 
Back to top