Найти мах элемент массива и его номер и умножить этот элемент на 5

@Виолеточка · Регистрация: 24.12.2010

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

Помогите найти ошибку в программе!!!!! срочно!!!!
Задача: найти мах элемент массива А(N) и его номер и умножить этот элемент на5.
Программа:

Visual Basic

Sub
Dim r,max,A(i) As Integer
   N= InputBox("N=")
For i = 1 To N
A(i)= InputBox("Введите число-элемент массива")
Next
max=A(1)
For i=2 To N
    If A(i) > max A Then
       r=max
A(i)=r*5
    End If
Next 
    MsgBox max
End Sub

@Sasha_Smirnov · 24.12.2010, 22:07

Попробую помочь.

Сообщение от Виолеточка

Visual Basic

1	If A(i) > max A Then

Ну раз

Сообщение от Виолеточка

срочно!!!!

то срочно и отвечай: что это за отдельно стоящее A в процитированном куске кода?

@~~Busine2009~~ · 24.12.2010, 22:22

Visual Basic

Sub m_1()
Dim max, maxi, A(), N, i As Integer
N = Val(InputBox("N="))
ReDim A(1 To N)
For i = 1 To N
    A(i) = Val(InputBox("Введите число-элемент массива"))
Next
max = A(1)
maxi = 1
For i = 2 To N
    If A(i) > max Then
        max = A(i): maxi = i
    End If
Next
    MsgBox A(maxi) * 5
End Sub

@Sasha_Smirnov · 24.12.2010, 22:26

Visual Basic

Option Base 1                       'нумеруем элементы массивов начиная с 1
 
Sub Упятерение()
    Dim r, max, a()
    a = Array(3, 16, 22, 777)       'здесь вводим числа (через запятую)
    max = a(1)
    
    For i = 1 To UBound(a)          'просматриваем элементы с начала до конца
    If a(i) > max Then max = a(i)   'запомнили новый максимум
    Next
    
    MsgBox "Максимум массива, умноженный на 5, равен " & max * 5, vbInformation
End Sub

Инпутбоксом вводить массив дюже запарно. Использовал ввод прямо в программе.

Найти мах элемент массива и его номер и умножить этот элемент на 5

Решение

Решение

Опции темы