Циклические алгоритмы, массивы
 

В клетку А1 записать число, если количество положительных элементов массива больше количество отрицательных.
В противном случае записать в клетку А1 любой текст.

На VBA под Exel

Sub Main()
Dim tpx(1 To 5) As Integer
Dim i As Single
For i = 1 To 5
If tpx(i) = i > 0 Then
i = 0
ElseIf i < 0 Then
i = "text"
End If
Cells(1, 1) = i
Next i

End Sub


Допер сам ... масив не прописывал...