Последний элемент массива увеличить на максимальный

@exelsilor · Регистрация: 10.10.2016

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

3. Ввести массив A(N). Найти максимальный элемент массива. Последний элемент массива увеличить на максимальный. Вывести полученный массив.

@Dilshod Komilov · 11.10.2016, 07:33

На VB.net

VB.NET

 Sub massiv(ByVal x() As Integer)
        Dim max As Integer = 0
        For i = 0 To x.Length - 1
            If x(i) > max Then
                max = x(i)
            End If
        Next
        MsgBox("Максимальный элемент массива -" & max)
        x(x.Length - 1) *= max
        For i = 0 To x.Length - 1
            ListBox1.Items.Add(x(i))
        Next
    End Sub

~~Shersh~~ · 11.10.2016, 09:09

Сообщение от Dilshod Komilov

Dim max As Integer = 0

если все значения массива отрицательны - ответ будет неверный.

VB.NET

1	Dim max As Integer = x(0)

Сообщение от Dilshod Komilov

x(x.Length - 1) *= max

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

Последний элемент массива увеличить на максимальный

VB.NET

1	x(x.Length - 1) += max

Чуть короче -

VB.NET

  Sub massiv(ByVal x() As Integer)
    MsgBox("Максимальный элемент массива -" & x.Max)
    x(x.Length - 1) += x.Max
    ListBox1.DataSource = x
  End Sub

@Dilshod Komilov · 11.10.2016, 10:02

Shersh, http://https://www.cyberforum.ru/vb-net/thread1823276.html вот здесь exelsilor говорил что надо найти сред. геом. знач. число по этому я подумал что знач. массива>0. А по поводу x(x.Length - 1) *= max вы правы я перепутал

@exelsilor · 11.10.2016, 14:00 **[ТС]**

Спасибо большое за помощь

@TonyWinter · 12.10.2016, 10:32

Dilshod Komilov, если все элементы массива будут отрицательными, то тогда 0 будет максимальным элементом, что неверно.
не заметил, уже ответили xDD

@Dilshod Komilov · 12.10.2016, 11:26

TonyWinter, Я понимаю. Допустим есть A(1) , A(0)=2,A(1)=-2. Сможешь найти сред геом. значение массива ?

@exelsilor 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 7
		1
	Последний элемент массива увеличить на максимальный 10.10.2016, 15:07. Показов 1211. Ответов 6 Метки нет (Все метки) 3. Ввести массив A(N). Найти максимальный элемент массива. Последний элемент массива увеличить на максимальный. Вывести полученный массив. 0

@Dilshod Komilov 40 / 41 / 13 Регистрация: 10.08.2016 Сообщений: 310
	11.10.2016, 10:02	4
	Shersh, http://https://www.cyberforum.ru/vb-net/thread1823276.html вот здесь exelsilor говорил что надо найти сред. геом. знач. число по этому я подумал что знач. массива>0. А по поводу x(x.Length - 1) *= max вы правы я перепутал 0

@exelsilor 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 7
	11.10.2016, 14:00 [ТС]	5
	Спасибо большое за помощь 0

@TonyWinter 5 / 5 / 10 Регистрация: 08.01.2016 Сообщений: 80
	12.10.2016, 10:32	6
	Dilshod Komilov, если все элементы массива будут отрицательными, то тогда 0 будет максимальным элементом, что неверно. не заметил, уже ответили xDD 0

@Dilshod Komilov 40 / 41 / 13 Регистрация: 10.08.2016 Сообщений: 310
	12.10.2016, 11:26	7
	TonyWinter, Я понимаю. Допустим есть A(1) , A(0)=2,A(1)=-2. Сможешь найти сред геом. значение массива ? 0