Для массива из N целых чисел определить индексы элементов, равных минимальному

@Samanta · Регистрация: 12.03.2015

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

Помогите пожалуйста с решение задачи.
Написать программу: Для массива из N целых чисел определить индексы элементов,
равных минимальному.
На языке на языке VBA или OpenOffice BASIC.
Очень срочно помогите пожалуйста.

@Vovchikvsb · 31.03.2015, 18:27

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

какой книгой?

В которой макрос.

Добавлено через 4 минуты

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

Я просто не знаю как делать в ворде

Так вы его еще и из Ворда запускаете. Тогда все ThisWorkbook поменяйте на ThisDocument.

Добавлено через 31 секунду
На Ворде работает. Проверил.

@Samanta · 31.03.2015, 19:12 **[ТС]**

В ворде правильно же я делаю, сначала Вид-Макросы-Макросы-создать-Пишу код Бейсик(у меня пишется все черным цветом) Запускаю-run. Сохраняю в папке с документом тхт(массивом). после чего открываю вордовский документ и запускаю макрос, но ничего не происходит. Что я делаю не так???

@Vovchikvsb · 31.03.2015, 19:41

Файл output.txt должен появляться в папке. А кроме этого ничего происходить не должно.
Вы же хотели вывод в файл.

@Samanta · 31.03.2015, 19:44 **[ТС]**

Да, а если он не появляется в чем может быть ошибка?

SoftIce · 31.03.2015, 20:35

Samanta, файл 123.txt из поста № 12 положите в корень диска С

Измените код так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub mas()
    Dim mas(2, 5)
    Dim i As Integer, j As Integer, min As Integer, MinIndex As String
    Dim t As String 
    i = 0
    Open  "C:\123.txt" For Input As #1
     Do While Not EOF(1)
        Line Input #1, t
        For j = 0 To UBound(Split(t))
            mas(i, j) = Split(t)(j)
        Next j
        i = i + 1
    Loop
    Close #1
 
    min = mas(LBound(mas, 1), LBound(mas, 2))
    For i = LBound(mas, 1) To UBound(mas, 1)
        For j = LBound(mas, 2) To UBound(mas, 2)
            If mas(i, j) < min Then
                min = mas(i, j)
                MinIndex = i & "," & j
              ElseIf mas(i, j) = min Then
                MinIndex = MinIndex & " " & i & "," & j
            End If
        Next j
    Next i
    Open "C:\output.txt" For Output As #1
    Print #1, MinIndex
    Close #1
End Sub

После этого, там же на диске С появится файл output.txt

@Samanta · 31.03.2015, 20:43 **[ТС]**

Наконец-то все получилось!!!! ОГРОМНОЕ СПАСИБО!!!! )))))))

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Samanta 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 16

	Для массива из N целых чисел определить индексы элементов, равных минимальному 12.03.2015, 12:06. Показов 3098. Ответов 25 Метки нет (Все метки) Помогите пожалуйста с решение задачи. Написать программу: Для массива из N целых чисел определить индексы элементов, равных минимальному. На языке на языке VBA или OpenOffice BASIC. Очень срочно помогите пожалуйста. 0

@Samanta 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 16
	31.03.2015, 19:12 [ТС]
	В ворде правильно же я делаю, сначала Вид-Макросы-Макросы-создать-Пишу код Бейсик(у меня пишется все черным цветом) Запускаю-run. Сохраняю в папке с документом тхт(массивом). после чего открываю вордовский документ и запускаю макрос, но ничего не происходит. Что я делаю не так??? 0

@Vovchikvsb 466 / 123 / 61 Регистрация: 04.03.2015 Сообщений: 325
	31.03.2015, 19:41
	Файл output.txt должен появляться в папке. А кроме этого ничего происходить не должно. Вы же хотели вывод в файл. 0

@Samanta 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 16
	31.03.2015, 19:44 [ТС]
	Да, а если он не появляется в чем может быть ошибка? 0

@Samanta 0 / 0 / 0 Регистрация: 12.03.2015 Сообщений: 16
	31.03.2015, 20:43 [ТС]
	Наконец-то все получилось!!!! ОГРОМНОЕ СПАСИБО!!!! ))))))) 0