Задание

Значение двух массивов A[1..100] и B[1..100] задаются с помощью представленного ниже фрагемнта программы:

for n:=1 to 100 do

A[n]:= n - 10;

for n:= 1 to 100 do

B[n]:=A[n]*n

Сколько элементов массива B будет иметь положительные значения?