Задача по информатике на QBasic

вот так dim a (размерность массива например 1 to N) as (тип массива например integer) for i=1 to N a(i)=int(rnd*100) next i s=0 for i=1 to N if a(i)=32 then s= s+1 next i print s