for i:=1 to 100 do A[i] := 50 - i;
с A[1] ... A[49] = 49 ... 1
с A[50] = 0
с A[51] ... A[100] = -1 ... -50
===============
for i:=1 to 100 do B[i] := A[i] + 49;
когда будет B[99] и : A[99] = -49 , то B[99] = A[99] + 49 = -49+49 = 0
когда будет B[100] и : A[100] = -50 , то B[100] = A[100] + 49 = -50+49 = -1
Всего элементов массива В будут иметь отрицательные значения ОДИН
Ответ: 1) 1