0 / 0 / 0
Регистрация: 24.12.2010
Сообщений: 14
1

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

24.12.2010, 22:02. Показов 2278. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите найти ошибку в программе!!!!! срочно!!!!
Задача: найти мах элемент массива А(N) и его номер и умножить этот элемент на5.
Программа:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2010, 22:02
Ответы с готовыми решениями:

Найти максимальный элемент динамического массива и умножить этот элемент на каждый в этом массиве
Создать двумерный динамический массив произвольного размера. Заполнить массив случайным образом....

Определить максимальный элемент массива и его порядковый номер; записать этот элемент в конец массива
1.Сформировать элементы массива (одномерного) с помощью счетчика случайных чисел . На лист Excel...

Определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый номер
определить наибольший элемент массива Х и вывести исходный массив,этот элемент и его порядковый...

Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000
1. Задать массив А с помощью генератора случайных чисел положительными и отрицательными числами....

3
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
24.12.2010, 22:07 2
Попробую помочь.
Цитата Сообщение от Виолеточка Посмотреть сообщение
Visual Basic
1
If A(i) > max A Then
Ну раз
Цитата Сообщение от Виолеточка Посмотреть сообщение
срочно!!!!
то срочно и отвечай: что это за отдельно стоящее A в процитированном куске кода?
0
Заблокирован
24.12.2010, 22:22 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
1
5562 / 1368 / 150
Регистрация: 08.02.2009
Сообщений: 4,109
Записей в блоге: 30
24.12.2010, 22:26 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
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
Инпутбоксом вводить массив дюже запарно. Использовал ввод прямо в программе.
0
24.12.2010, 22:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2010, 22:26
Помогаю со студенческими работами здесь

Найти максимальный элемент в каждой строке массива и номер столбца, в котором этот максимальный элемент находится
Найти максимальный элемент в каждой строке массива и номер столбца, в котором этот максимальный...

Найти минимальный элемент массива и его номер, а также найти следующий за ним минимальный элемент и номер
Найти минимальный элемент массива и его номер, а также найти следующий за ним минимальный элемент...

Каждый четный элемент массива умножить на минимальный его элемент
В одномерном массиве, состоящем из n целых элементов, каждый четный элемент умножить на минимальный...

Заменить элемент массива на сумму его соседей, если элемент массива четный и номер его лежит в промежутке
Случайным образом генерируется массив чисел. Пользователь вводит числа a и b. Заменить элемент...

Заменить элемент массива на сумму его соседей, если элемент массива четный и номер его лежит в промежутке от a до b
Случайным образом генерируется массив чисел. Пользователь вводит числа a и b. Заменить элемент...

Найти минимальный элемент главной диагонали матрицы и номер строки, в которой этот элемент располагается
Дана целочисленная квадратная матрица порядка 4, все элементы которой различны. Найти минимальный...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru