[deamon_t]

Задача 1 примерно так:

Dim A(5, 5) As Double
Dim i, j As Long
Dim Plus, Minus As Double 'Это результат задачи
For i = 0 To UBound(A, 1)
For j = 0 To UBound(A, 2)
A(i, j) = Rnd * 50 - 25
If A(i, j) > 0 Then Plus = Plus + A(i, j) Else Minus = Minus + A(i, j)
Next j
Next i

Добавлено через 26 минут
Вторая задача:

Dim A(5, 5) As Double
Dim i, j As Long
Dim Plus, Minus As Double 'Это результат задачи
Dim PlusIndex, MinusIndex As String
PlusIndex = "Положительные индексы:"
MinusIndex = "Отрицательные индексы:"
For i = 0 To UBound(A, 1)
For j = 0 To UBound(A, 2)
A(i, j) = Round(Rnd * 2 - 1)
If A(i, j) = 1 Or A(i, j) = -1 Then
Plus = Plus + 1
PlusIndex = PlusIndex + "(" + Str(i) + "," + Str(j) + ")"
Else
Minus = Minus + 1
MinusIndex = MinusIndex + "(" + Str(i) + "," + Str(j) + ")"
End If
Next j
Next i
MsgBox ("Кол-во 1=" + Str(Plus) + vbCrLf + "Кол-во 0=" + Str(Minus) + vbCrLf + PlusIndex + vbCrLf + MinusIndex)