Значения 2-ух массивов A[1..20] и B[1..20] задаются с поддержкою последующего куска

Значения 2-ух массивов A[1..20] и B[1..20] задаются с подмогою последующего куска программки:
for n:=1 to 30 do
A[n]:=10-n;
for n:=1 to 30 do
B[n]:=2*A[n]+1
Сколько частей массива B будут иметь положительные
значения?
1) 9 2) 10 3) 20 4) 21