Для первого столбца и первой строки вычислить произведение положительных элементов.

[Katie]

Мне дана такая задача.
Для первого столбца и первой строки вычислить произведение положительных элементов.

Вот такую задачу мы делали на паре:
Дан двумерный массив Х размером mxn элементов(m строчек, n столбцов).Найти суму квадратов элементов, которые находятся на диагоналях(m=n)
Вот програма:
Private Sub CommandButton1_Click()
n = InputBox("VVedite kolichestvo elementov n")
m = InputBox("Vvedite kolichestvo elementov m")
ReDim a(n, m)
For i = 1 To n
For j = 1 To m
a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
Next j
Next i
For i = 1 To n
For j = 1 To m
Cells(2 + i, 2 + j).Value = a(i, j)
Next j
Next i
For i = 1 To n
For j = 1 To m
If i = j Then S = S + a(i, j) ^ 2
End If
Next j
Next i
Cells(4 + n, 4 + m).Value = S
End Sub

Помогите пожалуйста сделать мою задачу!Буду очень благодарна!

[val_nnm]

Ну честно говоря немного не понятно задание.
Что же в действительности нужно получить?
Возмём пример матрицу скажем
12 -5 4 4
2 4 2 1
-2 4 5 3

если тебе скажем нужно получить одно чило S = 12*2*4*4 (заметь 12 встречается 1 раз)
тогда

Private Sub CommandButton1_Click()
  n = InputBox("VVedite kolichestvo elementov n")
  m = InputBox("Vvedite kolichestvo elementov m")
  ReDim a(n, m)
  For i = 1 To n
    For j = 1 To m
      a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
    Next j
  Next i
  For i = 1 To n
    For j = 1 To m
      Cells(2 + i, 2 + j).Value = a(i, j)
    Next j
  Next i

  S = 1
  For i = 1 To n
    if a(i,1)>0 Then S = S * a(i,1)
    End If
  Next i
  For j = 2 To m
    if a(1,j)>0 Then S = S * a(1,j)
    End If
  Next j
  Cells(4 + n, 4 + m).Value = S
End Sub

а если тебе скажем надо получить S1 = 12*2 и S2 = 12*4*4
тогда

Private Sub CommandButton1_Click()
  n = InputBox("VVedite kolichestvo elementov n")
  m = InputBox("Vvedite kolichestvo elementov m")
  ReDim a(n, m)
  For i = 1 To n
    For j = 1 To m
      a(i, j) = InputBox("Vvedite A(" & i & "," & j & ")")
    Next j
  Next i
  For i = 1 To n
    For j = 1 To m
      Cells(2 + i, 2 + j).Value = a(i, j)
    Next j
  Next i

  S1 = 1
  For i = 1 To n
    if a(i,1)>0 Then S1 = S1 * a(i,1)
    End If
  Next i
  S2 = 1
  For j = 1 To m
    if a(1,j)>0 Then S2 = S2 * a(1,j)
    End If
  Next j
  Cells(4 + n, 4 + m).Value = S1
  Cells(4 + n, 5 + m).Value = S2

End Sub

[Alex_FF]

Сообщение от val_nnm

Ну честно говоря немного не понятно задание.
Что же в действительности нужно получить?
Возмём пример матрицу скажем
12 -5 4
2 4 2 1
-2 4 5 3

наверное надо посчитать две величины: 12 * (-5) * 4 и 12 * 2 * (-2)

[Katie]

Ну я так поняла,что нужно 12*2 и 12*4*4

[Katie]

Очень большое спасибо!!!