В одномерном массиве из N чисел найти наибольший элемент и его номер

@Ordalion · Регистрация: 13.03.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Помогите решить задачку. Почитал про массивы, вроде всё понятно, но с кодом проблема(

"В одномерном массиве из N чисел найти наибольший элемент и его номер.

@Alex77755 · 14.03.2015, 13:58

Может не там читал?
В закреплённой теме есть и примеры
Массивы. Обьявление массивов. Сортировка массивов

@Ordalion · 17.03.2015, 08:44 **[ТС]**

Мне нужен код.

@andreynetesa · 17.03.2015, 08:54

Нахождение максимального элемента массива

@Ordalion · 17.03.2015, 17:45 **[ТС]**

А если надо вывести на экран кол-во четных и нечетных? Можно ли переделать код?

Visual Basic

Sub zadanie5()
Dim massiv() As Integer
Dim n As Variant
Dim i As Integer
Dim max As Integer, Счётчик As Integer
Do
    n = InputBox("Введите размерность массива")
    If IsNumeric(n) = False Then
        MsgBox ("неверно введены данные!"), vbCritical + vbOKOnly
    End If
Loop While IsNumeric(n) = False
ReDim massiv(n)
'Заполнение массива
For i = 0 To n
    massiv(i) = InputBox("Введите число")
Next
'Анализ массива.
max = massiv(0)
Счётчик = 1
For i = 1 To n
    If massiv(i) > max Then
        max = massiv(i)
        Счётчик = 1
    End If
    If massiv(i) = max Then
        Счётчик = Счётчик + 1
    End If
Next
MsgBox Счётчик
MsgBox max
End Sub

@andreynetesa · 17.03.2015, 17:58

Добавь 2 переменных. Одна - количество четных, вторая - количество нечетных
Вставь в цикл условие проверки четности. И по результатам проверки +1 либо к первой переменной, либо ко второй. Проверка, например, по остатку при делении на 2

Visual Basic

1	If x Mod 2 = 0 then

@Ordalion · 18.03.2015, 13:46 **[ТС]**

Куда вставить? Если можно код целиком.

@~~Апострофф~~ · 18.03.2015, 14:00

Найти минимальный элемент одномерного массива и его номер в массиве
Определить максимальный элемент массива и его порядковый номер

@Alex77755 · 18.03.2015, 18:47

Мне нужен код.

Не по теме:

Да чего уж мелочиться?!
Говори уж сразу: мне нужен диплом! Не царское это дело - учиться и постигать азы

@Ordalion · 19.03.2015, 18:05 **[ТС]**

Дело не в этом. Я готов постигать азы, был бы хороший сен-сей

@Ordalion 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 17
	19.03.2015, 18:05 [ТС]	10
	Дело не в этом. Я готов постигать азы, был бы хороший сен-сей 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	14.03.2015, 13:58	2
	Может не там читал? В закреплённой теме есть и примеры Массивы. Обьявление массивов. Сортировка массивов 1

@Ordalion 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 17
	17.03.2015, 08:44 [ТС]	3
	Мне нужен код. 0

@andreynetesa 0 / 0 / 0 Регистрация: 17.03.2015 Сообщений: 5
	17.03.2015, 08:54	4
	Нахождение максимального элемента массива 0

@Ordalion 0 / 0 / 0 Регистрация: 13.03.2015 Сообщений: 17
	18.03.2015, 13:46 [ТС]	7
	Куда вставить? Если можно код целиком. 0

@~~Апострофф~~ Заблокирован
	18.03.2015, 14:00	8
	Найти минимальный элемент одномерного массива и его номер в массиве Определить максимальный элемент массива и его порядковый номер 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	18.03.2015, 18:47	9
	Мне нужен код. Не по теме: Да чего уж мелочиться?! Говори уж сразу: мне нужен диплом! Не царское это дело - учиться и постигать азы 0