I) Enoncé

Ecrire un programme dont le rôle est de faire saisir à un maître d'école les notes de ses éleves en maths en français.

II) Correction

CONST

  cMAX = 36  //Le nombre d'élèves dans la classe

VAR

  NuserM, NuserF, TOTM, TOTF : REEL
  I : ENTIER

DEBUT

  TOT M <-- 0
  TOT F <-- 0
  POUR I <-- 1 JQA cMAX
    AFFICHER (Donnez la note de eleve numero, I ,en maths):
    SAISIR (NuserM)
    AFFICHER (Donnez la note de eleve numero, I ,en francais):
    SAISIR (NuserF)
    AFFICHER (La moyenne de eleve, I ,est, (NuserM + NuserF) / 2)
    TOT M <-- TOTM + NuserM
    TOT M <-- TOTF + NuserF
  FPOUR;
  AFFICHER (La moyenne de la classe en maths est de, TOTM / cMAX ,et en français de, TOTF / cMAX)

FIN



CONST

  cMAX = 36  //Le nombre d'élèves dans la classe

VAR

  T TABLEAU (1...cMAX) : ENTIER
  Tmaths, Tfrancais, MoyMaths, MoyFrancais : REEL
  I = ENTIER

DEBUT

  MoyMaths <-- 0
  MoyFrancais <-- 0
  POUR I <-- 1 JQA cMAX
    AFFICHER (Saisir la note de maths de l eleve numero, I):
    SAISIR (Tmaths [i])
    MoyMaths <-- MoyMaths + Tmaths
    AFFICHER (Saisir la note de francais de l eleve numero, I):
    SAISIR (Tfrancais [i])
    MoyFrancais <-- MoyFrancais + Tfrancais
    AFFICHER (La moyenne de l eleve numero, I ,est, (Tmaths [I] + Tfrancais [I] / 2 ))
  FPOUR
  AFFICHER (La moyenne de la classe en maths est de, MoyMaths / cMAX , et en francais, MoyFrancais / cMAX")

FIN



up