数组说明 DIM A(4)

INPUT N （屏幕提示 “ N = ？（建议大于1000）”）

counter = 0

FOR I = 1, N

NewList

在1-26里独立取4个随机数，赋值给数组A 。

IF A(2) < A(1) GO TO NewList
IF A(3) < A(2) GO TO NewList
IF A(4) < A(3) GO TO NewList

counter = counter + 1

NEXT I

P = counter/N

Print P

END