{* Задача142 *}

REM basic

' В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов


CLS
INPUT n
Dim a(n)
RANDOMIZE TIMER
For i =1 To n
a(i)=INT(RND(1)*50 +1)
Next i
For i= 1 To n
? a(i)
Next i
For i=1 To n
If a(i)=0 Then ?i;
Next
End