Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Kyurem
2 / 1 / 1
Регистрация: 22.10.2014
Сообщений: 37
1

Определить минимальный элемент и его номер из одномерного массива целых чисел

19.04.2018, 09:11. Просмотров 879. Ответов 3
Метки нет (Все метки)

Написал начало, но не знаю как записать введенные числа в массив, и найти минимальное число в этом массиве и его номер в нем
Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub mas()
Dim J As Byte, n As Byte, i As Integer
n = InputBox("Введите размерность массива")
ReDim A(n)
For i = 1 To n
 
A(i) = InputBox("Введите число" & i & " ")
 
Next i
End Sub
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2018, 09:11
Ответы с готовыми решениями:

Найти минимальный по модулю элемент массива Y и его номер
Задание один: Записать элементы массива X=(x1,x2,…, xn) с четными индексами подряд в массив...

Найти минимальный элемент массива и вывести его номер
помогите найти ошибку в коде - не всегда правильно выводит минимальную прибыль, и часто ругается на...

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

Дан одномерный массив случайных целых чисел. Разделить каждый элемент массива на его индекс
Дан одномерный массив W из 10 случайных целых чисел, каждое из которых лежит в пределах от 1 до...

Найти и вывести на экран минимальный элемент матрицы и его номер
Помогите, пожалуйста!!!!!!!!!!!!! 1)Дана матрица (n,n). найти и вывести на экран минимальный...

3
snipe
3105 / 1083 / 261
Регистрация: 07.08.2013
Сообщений: 2,755
19.04.2018, 09:30 2
Лучший ответ Сообщение было отмечено Kyurem как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub mas()
Dim n&, i&, a1&, a2&, a&()
n = InputBox("Введите размерность массива")
ReDim A(n)
a1=0
For i = 1 To n
A(i) = InputBox("Введите число" & i & " ")
if a1>a(i) Then a1=a(i): a2=i
Next i
MsgBox a2 & "-ый элемент массива со значением " & a1 & " самый минимальный"
End Sub
1
Kyurem
2 / 1 / 1
Регистрация: 22.10.2014
Сообщений: 37
19.04.2018, 10:12  [ТС] 3
А как сделать так чтобы при введении размерности массива проверялось n<0

Добавлено через 10 минут
snipe, Эм такая проблема, этот код работает только с отрицательными числами Исправил

Добавлено через 14 минут
snipe Блин, проблема так и не решилась, макрос считает минимальное отрицательных чисел, а если поменять знак, то считает максимальное положительных чисел
0
Остап Бонд
864 / 508 / 244
Регистрация: 17.08.2017
Сообщений: 1,250
19.04.2018, 10:40 4
Kyurem, пятая строка
Visual Basic
1
a1=2147483647
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2018, 10:40

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

Найти минимальный элемент одномерного массива и его номер в массиве
Господа, помогите решить задачку на VBasic: Найти минимальный элемент одномерного массива и его...

Определить минимальный элемент массива и его порядковый номер, заменить минимальный элемент массива нулём
Определить минимальный элемент массива С и его порядковый номер, замените минимальный элемент...


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

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

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