Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
age
'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 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) for n=1 to nb console.writeline("quel est l'age de la personne " & n) age(n)= console.readline() som=som+age(n) age_moyen=som/nb colonneA = 0<age(n) and age(n)<15 if colonneA= true then de_0_a_15=de_0_a_15+1 end if next n 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 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(de_0_a_15) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
falhanço épico
hckhckhhkck
ss
kompasnaald
exercicio 2
ABS Cracker
exercicio 2 2019 11 11
Web application
valor maximo entre 3 numeros
Hello