С объясненьями, пожалуйста!!!Сколько положительных частей будет в массиве С[1..100] после

С объясненьями, пожалуйста!!!
Сколько положительных частей будет в массиве С[1..100] после исполнения куска программы?

for i:=1 to 100 do

C[101-i]:=-i-98;

for j:=1 to 100 do

C[j]:=C[j]+150;