18 lines
181 B
Text
18 lines
181 B
Text
PROGRAM:LOOP
|
|
(A,B)→dim([C])
|
|
For(I,1,A)
|
|
For(J,1,B)
|
|
int(rand*20+1)→[C](I,J)
|
|
End
|
|
End
|
|
For(I,1,A)
|
|
For(J,1,B)
|
|
Disp [C](I,J)
|
|
If [C](I,J)=20
|
|
Then
|
|
Stop
|
|
End
|
|
End
|
|
End
|
|
|
|
3→A:4→B:prgmLOOP
|