Exel & VBA
 

Есть задачи по теме, может кто решит. Очень надо! Программирование ведется в модуле. Задача1: Вычислить произведение положительных и отрицательных элементов каждого столбца массива A(N,M) (массив 5x5)
Задача2:Ввести массив A(N) из положительных и отрицательных едениц и нулей. Вывести на печать информацию о количестве положительных и отрицательных едениц, нулей, а также об их индексах. Напомню, что программирование в Exel & МИФ. Заранее спасибо.

Ответ: Exel & VBA
 

Задача 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)

Ответ: Exel & VBA
 

Может и решу, если ещё надо. А МИФ - это что?:roll: