В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму
элементов массива и разделить каждый элемент массива на полученное
значение результат получить в диапазоне ячеек Е1:Е15. Разместить
командную кнопку «Вычислить» и написать к ней процедуру. Результат с
моделируйте на рабочем листе самостоятельно.
Делала в Exс что не так
Sub Лист3_Кнопка1_Щелчок()
Dim s, d, i As Integer 'Описание данных
s = 0 'Начальные присваивания
For i = 1 To 15
s = s + Cells(i, 1)
d = Cells(i, 1) / s
Cells(16, 3) = "Сумма=": Cells(17, 3) = s
Cells(1, 3) = "Деление=": Cells(i, 4) = d
Next
End Sub

n = int(input())

s = []

result = [0,0,0]

for i in range(n):

   k = int(input())

   while not (-10000 < k < 10000):

       k = int(input("Out of range. Repeat: "))

   s.append(k)

for i in s:

   if i > 0:

       result[0] += 1

   elif i < 0:

       result[1] += 1

   elif i == 0:

       result[2] += 1

for i in result:

   print(i, end=" ")

5                                                                                                                                

3                                                                                                                                

4                                                                                                                                

-4                                                                                                                              

-2                                                                                                                              

0                                                                                                                                

2 2 1