Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
Olga_G
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 5
1

Как найти номер максимального элемента массива

07.06.2013, 09:56. Просмотров 1709. Ответов 9
Метки нет (Все метки)

В одномерном массиве, который состоит из эн действительных элементов, вычислить:
1) номер максимального элемента массива;
2) произведение элементов массива, расположенных между первым и вторым нулевыми элементами.
Преобразовать массив таким образом, чтобы в первой половине размещались элементы, расположенные на нечетных позициях, во второй половине - другие элементы.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2013, 09:56
Ответы с готовыми решениями:

Найти разность максимального и последнего элемента массива
Дан массив. Найти разность максимального и последнего элемента массива

Найти сумму элементов массива, расположенных после максимального элемента
Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для Visual...

Найти сумму элементов массива, расположенных после максимального элемента
Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}. Переписать элементы массива,...

найти число, которое меньше максимального элемента массива, но больше всех других его элементов
В массиве A найти второе по значению число (т.е. вывести на печать число, которое меньше...

Как найти порядковый номер элемента последовательности
Вводится последовательность ненулевых чисел, 0-конец последовательности.Найти наименьшее из всех...

9
proft
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 848
07.06.2013, 16:40 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
Private Sub Command1_Click()
Dim a() As Double
Dim b() As Double
Dim sum As Double
Dim max_i As Double
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim j As Integer
Dim max As Integer
Dim proiz As Double
Cls
sum = 1
n = 10 ' êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*
ReDim a(1 To n)
For i = 1 To n
    a(i) = Int(Rnd * 10 - 1)
    Print a(i);
Next i
max = a(1)
max_i = 1
For i = 2 To 10
    If a(i) > max Then
    max = a(i)
    max_i = i
    End If
Next i
Print vbLf
    Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ"; max
    Print "Г€Г*äåêñ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*îãî ýëåìåГ*ГІГ*"; max_i
Print vbLf
k = 0: j = 0
ReDim b(1 To n)
For i = 1 To n
    If i Mod 2 = 0 Then
    k = k + 1
    b(k) = a(i)
    Else
    b(n - j) = a(i)
    j = j + 1
    End If
Next i
For i = 1 To n
Print b(i);
Next
End Sub
1
Olga_G
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 5
07.06.2013, 23:07  [ТС] 3
спасибо вам большое) вот только ошибку синтаксическую у меня выбивает
0
proft
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 848
08.06.2013, 00:39 4
Что за ошибка?
0
08.06.2013, 00:39
Olga_G
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 5
08.06.2013, 17:07  [ТС] 5
compile error
0
proft
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 848
09.06.2013, 11:03 6
Проверьте ещё раз. У меня всё работает.
Хотел уточнить про произведение 1-ый и второй нулевой элемент - это когда встречается "ноль" ?
0
Olga_G
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 5
09.06.2013, 15:02  [ТС] 7
да, все правильно
0
proft
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 848
10.06.2013, 11:37 8
Вроде вот так:
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
Private Sub Command1_Click()
Dim a() As Double
Dim b() As Double
Dim sum
Dim max_i As Double
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim j As Integer
Dim max As Integer
Dim kol As Integer
Cls
n = 10 ' êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*
ReDim a(1 To n)
For i = 1 To n
    a(i) = Int(Rnd * 10 - 1)
    Print a(i);
Next i
max = a(1)
max_i = 1
For i = 2 To 10
    If a(i) > max Then
    max = a(i)
    max_i = i
    End If
Next i
Print vbLf
    Print "ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ"; max
    Print "Г€Г*äåêñ Г¬Г*ГЄГ±ГЁГ¬Г*ëüГ*îãî ýëåìåГ*ГІГ*"; max_i
Print vbLf
k = 0: j = 0
ReDim b(1 To n)
For i = 1 To n
    If i Mod 2 = 0 Then
    k = k + 1
    b(k) = a(i)
    Else
    b(n - j) = a(i)
    j = j + 1
    End If
Next i
For i = 1 To n
Print b(i);
Next
Print vbLf
kol = 0
sum = 1
For i = 1 To n
    If a(i) = 0 Then kol = kol + 1
    If kol = 1 And a(i) <> 0 Then
    k = a(i)
    sum = k * sum
    End If
    If kol = 0 Then sum = "Íóëåâûõ ýëåìåГ*òîâ Г*ГҐГІ"
Next i
Print "ÏðîèçâåäåГ*ГЁГҐ ýëåìåГ*òîâ Г°Г*ñïîëîæåГ*Г*ûõ ìåæäó Г*óëåâûìè ýëåìåГ*ГІГ*ìè - "; sum
End Sub
0
Olga_G
0 / 0 / 0
Регистрация: 07.06.2013
Сообщений: 5
10.06.2013, 12:53  [ТС] 9
большое спасибо )
0
proft
318 / 286 / 103
Регистрация: 12.04.2011
Сообщений: 848
10.06.2013, 16:38 10
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Вот так всё таки правильнее, добрый человек подсказал)
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
64
Sub Test()
Dim a() As Double
Dim b() As Double
Dim sum
Dim max_i As Double
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim j As Integer
Dim max As Integer
Dim kol As Integer
 
n = 20 ' количество элементов массива
ReDim a(1 To n)
For i = 1 To n
    a(i) = Int(Rnd * 10 - 1)
    Debug.Print a(i); " ";
Next i
Debug.Print
Debug.Print "________________________"
Debug.Print
max = a(1)
max_i = 1
For i = 2 To 10
    If a(i) > max Then
    max = a(i)
    max_i = i
    End If
Next i
Debug.Print vbLf
    Debug.Print "Максимальный элемент"; max
    Debug.Print "Индекс максимального элемента"; max_i
Debug.Print vbLf
k = 0: j = 0
ReDim b(1 To n)
For i = 1 To n
    If i Mod 2 = 0 Then
    k = k + 1
    b(k) = a(i)
    Else
    b(n - j) = a(i)
    j = j + 1
    End If
Next i
For i = 1 To n
Debug.Print b(i);
Next
Debug.Print vbLf
kol = 0
sum = 1
For i = 1 To n
    If a(i) = 0 Then kol = kol + 1
    If kol = 1 And a(i) <> 0 Then
       k = a(i)
       sum = k * sum
    End If
    'If kol = 0 Then sum = "Нулевых элементов нет"
Next i
If kol = 0 Then
   Debug.Print "Нулевых элементов нет"
Else
   Debug.Print "Произведение элементов расположенных между нулевыми элементами = "; sum
End If
End Sub
1
10.06.2013, 16:38
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 16:38

Определите номер максимального элемента последовательности, попадающего в диапазон допустимых значений типа Byte
Последовательность Фибоначчи определяется следующим образом: F(0)=1; F(1)=1; F(n)=F(n-1)+F(n-2),...

Определение максимального элемента массива
Определение максимального элемента массива.Помогите,пожалуйста.Очень срочно.Если кому-то не понятна...

Вывод максимального элемента массива
For i = 1 To UBound(z) If Abs(z(i)) &gt; Abs(Max) Then Max = z(i) Next i Нужно...


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

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

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