age v2, Visual Basic

age v2

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)
            'Your code goes here
            Console.WriteLine("Hello, world!")
            dim A,nb,n,i,max,min,de_0_a_15 as byte
            dim age(),age_moyen,som,sigma,variance,s as single
            dim colonneA as boolean
            
            console.writeline("quel est le nombre de personnes")
            nb=console.readline()       
            redim age(nb)        
            colonneA = 0<age(n) and age(n)<15
            while n<nb
               n=n+1
              
                 console.writeline("quel est l'age de la personne " & n)
                 age(n)= console.readline()
                 
                 A= 26<age(n)and age(n)<35
                 
                 if A=true then
                   de_0_a_15=de_0_a_15 +1 
                 end if  
                 
                 som=som+age(n)   
                 age_moyen=som/nb
               
            end while
            
            
            for n=1 to nb
                 
                   s=(age(n)-age_moyen)^2
                   variance= variance+ s 
                 
            
            next n  
                   sigma=((variance)/(nb-1))^0.5 
           
            for n=1 to nb
            
              If age(n) > Max Then
                   Max = age(n)
              End If
            next n
            
            min= age(1)
            for n=2 to nb
              if age(n)< min then 
                   min=age(n)
             
              end if
             
            next n 
            
            
              
                  
       
            console.writeline("l'age moyen est de " & age_moyen)
            console.writeline("l'ecart type est de " & sigma)
            console.writeline("l'age maxi est de " & max)
            console.writeline("l age mini est de " & min)
            console.writeline(de_0_a_15)
            
       End Sub
    End Module
End Namespace


run \| edit \| history \| help	0