Помогите решить. Написать программу для решения задач ** языке Basic. Вывести ** печать...

Question

Помогите решить.
Написать программу для решения задач на языке Basic. Вывести на печать номера всех положительных элементов массива А(20).

Answer 1

Dim a(1 to 20) as Integer
Dim i as Integer
Randomize Timer
For i=1 To 20
   a(i)=Int(50*Rnd)-25
   Print a(i);
Next i
Print
For i=1 To 20
   If a(i)>0 Then Print i;
Next i
Print