1 - Algún Elemento Positivo (p.147 - ej.3b)
[ con N: Int, A: array [0,N) of Int; var n,r: Int
n,r := 0,False
do
n
N
n,r := n+1,r or A.n
0
od
]
nicolas@turing.fis.uncor.edu