Первая задача:
Dim array(12) ' Тут инициализацию пропишешь
Dim I, J
For I = 0 To 12 Step 1
If I Mod 2 <> 0 Then
array(i) = array(i) * array(i) * array(i) ' Ну здесь мож лучше вариант есть, просто как в бэсике не знаю.
MsgBox(array(i))
End If
Next
ВТорая вроде так будет выглядеть:
Dim array(8)(8)
array(1)(1) = Rnd()
'... Тут рандомная инициализация как вверху
Dim I, PlusCol, MinSum
For I = 0 To 8 Step 1
For J = 0 To 8 Step 1
If array(I)(J) > 0 Then
PlusCol = PlusCol + 1
End If
Next
MsgBox(PlusCol) ' Вывод количества положительных элементов
For I = 0 To 8 Step 1
For J = 0 To 8 Step 1
If array(I)(J) < 0 Then
MinSum = MinSum + array(I)(J)
End If
Next