Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.