Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Liplyaviy
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 14
1

Вычислить номер максимального элемента массива; произведение элементов массива

22.11.2012, 22:59. Просмотров 1065. Ответов 2
Метки нет (Все метки)

Вариант 7
В одномерном массиве, состоящем из n целочисленных элементов, вычислить:
• номер максимального элемента массива;
• произведение элементов массива, расположенных между первым и вторым нулевыми элементами.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Zadanie4()
Dim a() as Integer, n as Integer
Dim I as Integer, imax as Integer
n=InputBox(“Введите размерность массива”)
ReDim A(1 to n)
Randomize
For I=1 to n
A(I)=Int((50-1+1)*Rnd+1)
Worksheets(“Лист1”).Cells(I+1,6)=A(I)
Next
imax=1
For I=2 to n
If A(I)>A(imax) Then imax=I
Next
Максимальный элемент кажется нашел, а вот как след. условие выполнить не знаю Помогите плиз кто может...
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2012, 22:59
Ответы с готовыми решениями:

Произведение элементов массива, расположенных после максимального по модулю элемента
Привет всем :) Делаю тут задачку и не могу найти ошибку, первое условие...

Вычислить среднее арифметическое элементов, расположенных до максимального элемента массива
Добрый день. Помогите с кодом. Заранее спасибо. В целочисленном массиве...

Найти произведение максимального и минимального элементов массива
Найти произведения максимальногои минимального елементов масива С(4,4) ...

Вычислить сумму максимального и минимального элементов массива
1. Із одновимірного масиву A розмірності N побудувати масив B із всіх від'ємних...

Вычислить произведение элементов массива
Задана последовательность из N целых чисел. Вычислить произведение элементов...

2
Скрипт
5446 / 1127 / 49
Регистрация: 15.09.2012
Сообщений: 3,420
23.11.2012, 10:04 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Zadanie4()
 
    Dim a() As Integer, n As Integer
    Dim I As Integer, imax As Integer
    Dim lZeroItem_1 As Long, lZeroItem_2 As Long
    Dim dProduct As Double
    
    n = InputBox("Введите размерность массива")
    
    ReDim a(1 To n)
    Randomize
    For I = 1 To n Step 1
        'Изменил диапазон случайных чисел, т.к. для
        'второго задания нужны нули.
        a(I) = Int((10 - (-10) + 1) * Rnd + (-10))
        Worksheets("Лист1").Cells(I + 1, 6) = a(I)
    Next I
    
    imax = 1
    
    For I = 2 To n Step 1
        If a(I) > a(imax) Then imax = I
    Next I
    
    
'---------------------------------------------------------------------------------------------------
    'Второе задание.
    
    '1. Определяем порядковый номер первого нулевого элемента.
    For I = 1 To n Step 1
        If a(I) = 0 Then
            lZeroItem_1 = I
            'Выходим из цикла для поиска
            'следующего нуля.
            Exit For
        End If
    Next I
    
    '2. Определяем порядковый номер второго нулевого элемента.
    For I = lZeroItem_1 + 1 To n Step 1
        If a(I) = 0 Then
            lZeroItem_2 = I
            Exit For
        End If
    Next I
    
    '3. Смотрим, есть ли нули в массиве.
    If lZeroItem_1 = 0 Or lZeroItem_2 = 0 Then
        MsgBox "Второе задание: недостаточно нулевых элементов в массиве!"
        'Выходим из процедуры.
        Exit Sub
    End If
    
    '4. Находим произведение.
    'Помещаем в переменную dProduct единицу, т.к.
    'на это число надо будет умножать, а по умолчанию там ноль.
    dProduct = 1
    For I = lZeroItem_1 + 1 To lZeroItem_2 - 1 Step 1
        dProduct = dProduct * a(I)
    Next I
    MsgBox "Второе задание: произведение равно " & dProduct
    
End Sub
3
Liplyaviy
0 / 0 / 0
Регистрация: 22.11.2012
Сообщений: 14
23.11.2012, 13:18  [ТС] 3
Спасибо большое, Скрипт
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2012, 13:18

Найти произведение элементов массива В(12), стоящих после минимального элемента
Найти произведение элементов массива В(12), стоящих после минимального...

Найти произведение элементов массива, четные элементы массива заменить на произведение
ввести массив a(n). найти произведение элементов массива. четные элементы...

Вычислить произведение и количество отрицательных элементов массива
вычислить произведение и количество отрицательных элементов массива


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru