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