VB suma de números aleatorios
dim i como entero, s como entero, s1 como único
s=0
para i =1 a 20
Aleatorio
s=s (100)rnd 1 'suma
siguiente i
imprimir s <
s1=s/20 'media
print s1
Algoritmo para valor máximo:
atenuar a(1 a 21)
a(1)=1
para i =1 a 20
Aleatorizar
a(i 1)=(100) rnd 1
si a(i)gt;a(i 1) entonces x=a(i)
siguiente i
imprimir x