Бейсик. Одномерный массив

[Necro]

эээ, я не смотрел
в Бейсике не шарю совершенно, так что не могу помоч...

[Агент]

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

эээ, я не смотрел
в Бейсике не шарю совершенно, так что не могу помоч...

Ну, ладно. Все равно спасибо.

[Агент]

Сообщение от Агент

Ну, ладно. Все равно спасибо.

Проверьте павильно или нет?
Определить произведение и сумму элементов больших 3. В двух одномерных массивах одинаковой длины.


Sub PR3()
Dim x(20) As Integer
Dim y(30) As Integer
Dim Nx As Integer
Dim Ny As Integer
Dim I As Integer
Dim Px As Double
Dim Sx As Integer
Dim Py As Double
Dim Sy As Integer
Range(cells(1, 1), cells(30, 30)) clear
Nx = Val(InputBox("Введите x"))
Randomize: Cells(1, 1) = "массив x"
For I = 1 To Nx
x(I) = Int(Rnd * 100 - 50)
Cells(2, I) = x(I)
Next x
Px = 1: Sx = 0
For I = 1 To Nx
If x(I) >3 Then
Px = Px * x(I)
Sx = Sx + 1
End If
Next I
Cells(3, 1) = "Px=" & Px
Cells(4, 1) = "Sx=" & Sx
Cells(5, 1) = "массив y"
Ny = Val(InputBox("Введите y"))
For I = 1 To Ny
y(I) = Int(Rnd * 100 - 50)
Cells(6, I) = y(I)
Next I
Py = 1: Sy = 0
For I = 1 To Ny
If y(I) >3 Then
Py = Py * y(I)
Sy = Sy + 1
End If
Cells(7, 1) = "Py=" & Py
Cells(8, 1) = "Sy=" & Sy
Cells(5, 1) = "массив y"
End Sub

[Агент]

Сообщение от Агент

Проверьте павильно или нет?
Определить произведение и сумму элементов больших 3. В двух одномерных массивах одинаковой длины.


Sub PR3()
Dim x(20) As Integer
Dim y(30) As Integer
Dim Nx As Integer
Dim Ny As Integer
Dim I As Integer
Dim Px As Double
Dim Sx As Integer
Dim Py As Double
Dim Sy As Integer
Range(cells(1, 1), cells(30, 30)) clear
Nx = Val(InputBox("Введите x"))
Randomize: Cells(1, 1) = "массив x"
For I = 1 To Nx
x(I) = Int(Rnd * 100 - 50)
Cells(2, I) = x(I)
Next x
Px = 1: Sx = 0
For I = 1 To Nx
If x(I) >3 Then
Px = Px * x(I)
Sx = Sx + 1
End If
Next I
Cells(3, 1) = "Px=" & Px
Cells(4, 1) = "Sx=" & Sx
Cells(5, 1) = "массив y"
Ny = Val(InputBox("Введите y"))
For I = 1 To Ny
y(I) = Int(Rnd * 100 - 50)
Cells(6, I) = y(I)
Next I
Py = 1: Sy = 0
For I = 1 To Ny
If y(I) >3 Then
Py = Py * y(I)
Sy = Sy + 1
End If
Cells(7, 1) = "Py=" & Py
Cells(8, 1) = "Sy=" & Sy
Cells(5, 1) = "массив y"
End Sub

Подскажите в чем ошибка?

[Sasha_Smirnov]

Массивы не одинаковой длины! (Не цитируй меня, если можешь.)

Сообщение от Агент

Sub PR3()
Dim x(20) As Integer
Dim y(30) As Integer

И... методичку в студию!

[Агент]

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

Массивы не одинаковой длины! (Не цитируй меня, если можешь.)

И... методичку в студию!

Точно не одинаковой.
Если знаешь решение подскажи!

[Sasha_Smirnov]

1. Судя по конструкции Cells(), массив надо предварительно напечатать в таблице?
2. Вы сами по методичке что-нибудь уже делали?

Подсказать?! Я подсказал. И просил не цитировать. Есть кнопка «Ответить»:

[Агент]

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

Подсказать?! Я подсказал. (И просил не цитировать. Есть кнопка «Ответить».)

1. Судя по конструкции Cells(), массив надо предварительно напечатать в таблице?
2. Вы сами по методичке что-нибудь уже делали?

Да, первые две, они подобные решению в примере. Они у меня здесь выше есть. А с этой че то не знаю.

[Агент]

А, точное решение не скажешь.

[Sasha_Smirnov]

Без методички смысла мало: работать будет, но, возможно, не так, как вам объясняли.

На вопрос так и не ответили: массив — в таблице?

    For i = 1 To IIf(M < N, M, N)
    
    If i Mod k = 0 Then  'эту строку (номер которой кратен k) не рассматриваем'
    Else
        If massiv1(i) > k And massiv2(i) > k Then
        Cells(i, 3) = IIf(otvet = vbYes, _
        massiv1(i) + massiv2(i), massiv1(i) * massiv2(i)) 'печать 3-го (обработанного) массива в 3-ю колонку таблицы'
        End If
    End If
        
    Next