下面如此精彩的idiot杰作，怎么就没有人喝彩呢，不提上来可惜了。

送交者: 萨摩亚2 于 2010-01-19, 22:58:33:

回答: 难怪有人骂你idiot你还往前凑由 wanxiang 于 2010-01-19, 22:14:44:

数组说明 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