Microsoft Small Basic

Program Listing: NKC387

List Program

n=20
For i=1 To n
sir[i]=Math.GetRandomNumber(100)
EndFor

For i=1 To n
sirnou[i]=sir[n-i+1]
EndFor

k=1
For i=n To 1 Step -1
sirnou[k]=sir[i]
k=k+1
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 n
TextWindow.Write(sirnou[i]+" ")
EndFor