Microsoft Small Basic

Program Listing:
Embed this in your website
n=20
For i=1 To n
  sir[i]=Math.GetRandomNumber(100)
EndFor

k=1
For i=1 To n
  If Math.Remainder(sir[i],2)=0 Then
    sirnou[k]=sir[i]
    k=k+1
  EndIf
EndFor

TextWindow.WriteLine("Primul sir:")
For i=1 To n
  TextWindow.Write(sir[i]+" ")
EndFor
TextWindow.WriteLine("")
TextWindow.WriteLine("Al doilea sir:")
For i=1 To k-1
  TextWindow.Write(sirnou[i]+" ")
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.