Analysez le code suivant pour déterminer la valeur de la variable MaVar à la fin du traitement.

Option Explicit

Проявом ультрафіолетової нестачі є:

За природою походження активні негативні фактори поділяються на:

Фактор, дія якого за певних умов призводить до травми або іншого різкого погіршення здоров’я – це:

Бажання належати до певної соціальної групи і посідати в ній певне становище, користуватися прихильністю оточуючих, бути об'єктом їх уваги та любові – це потреби:

Сталі душевні якості, що утворюються у процесі життєдіяльності людини і характеризують її здатність відповідати на певні дії адекватними психічними діями – це:

В системі взаємодії людини з об'єктами навколишнього середовища головними або домінуючими при виявленні небезпеки виступають такі аналізатори:

Ризик це:

Nimeä liigan kauden parhaat

Dans le code suivant, il y a deux erreurs :

Sub Epreuves2()

Dim n As Integer, i As Integer

Dim nom, maxnom As String

Dim x As Single, y As Single, z As

Single, maxm As Single

Dim m As Integer

maxnom=«»

maxm=0

n

= InputBox(« Donnez le nombre d’élèves »)

For

i = 1 to n

     nom = InputBox(«Donnez le nom de l’élève»)

     x = InputBox(« Donnez la note de la

première épreuve »)

     y = InputBox(« Donnez la note de la

deuxième épreuve »)

    z = InputBox(« Donnez la note de la

troisième épreuve »)

m =

(x + y + z) / (3)

     If

m > maxm Then

          maxm = m

          maxnom = nom

End If

MsgBox

« L’élève » & maxnom & « a la moyenne maximale » & maxm

End

Sub