Exercice corrigé: La plus grande somme de chiffres dans un tableau

Code:

program grandeSomme;
uses wincrt;
type
  TAB = array[1..100] of integer;


procedure saisie(var n:integer;var T: TAB);
var
 i:integer;
begin
  repeat
    write('Taille du tableau = ');
    readln(n);
  until (n in [2..20]);
  for i:=1 to n do
  begin
      repeat
          write('T[',i,'] = ');
          readln(T[i]);       
      until (T[i]>=100);
  end;
end;

function SommeChiffre(x:integer):integer;
var
 ch: string;
 somme,i,m,e:integer;
begin
  str(x,ch);
  somme := 0;
  for i:=1 to length(ch) do
  begin
    val(ch[i],m,e);
    somme := somme + m;
  end;

  sommeChiffre := somme;
end;


function posMax(T:TAB;n:integer):integer;
var
  pmax,i:integer;
begin
  pmax := 1;
  for i:=2 to n do
      if (sommeChiffre(T[pmax]) <  sommeChiffre(T[i])) then
        pmax := i;

  posMax := pmax;
end;


{programme principal}

var
  pmax,n:integer;
  T:TAB;
begin

    saisie(n,T);

    pmax := posMax(T,n);

    writeln('Le nombre ayant la plus grande somme de chiffres: ',T[pmax]);

    writeln('La somme de ses chiffres est: ',sommeChiffre(T[pmax]));

end.


naoufelbz a écrit: merci pour le partage,
je le trouve un exercice intéressant pour les élèves
merci encore pour la solution de l'exercice