Microsoft Small Basic

Program Listing: QXB953

List Program

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