Задание

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

for n := 1 to 20 do

A[n] := n - 10;

for n := 1 to 20 do

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

Укажите количество элементов массива B, которые будут иметь положительные значения.