Массив: Найти сумму трех минимальных из массива двузначных чисел

@Qwert322 · Регистрация: 08.06.2016

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

Дан массив из десяти целых двузначных чисел. Найти сумму трех минимальных из них

@fever brain · 17.06.2016, 21:53

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

это кодище не для "проведём эксперимент"

Ну как же, а вот я хочу использовать ваш пример, я второкласник
и ничего не знаю и типах, напишу ручищами это кодище и буду плакать от того
что ответ вышел неверный )

@Genn55 · 17.06.2016, 23:38

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

Найти сумму трех минимальных из них

Я так и не понял,что в массиве двухзначных чисел заполненном рандомно числа не должны повторяться?В условии я это не увидел.Но ведь результат будет разным!
В моем понимании в любом случае должно быть 3 разных числа,если в массиве не равны все числа тогда будет 2 числа одно из которых будет 0.При любой сортировке все равные числа будут рядом и если они наименьшие результат будет равен сумме 3х или 2х одинаковых чисел.Или я не прав?
Повторюсь на каком рисунке верный результат?

@Genn55 · 18.06.2016, 00:03

Когда все элементы равны

@Genn55 · 18.06.2016, 01:42

Сообщение от fever brain

Мне чтото подсказывает что Ваш вариант работать не будет
Я ваш алгоритм уловил, тоесть суть какая:
просматриваеться массив, для того чтобы найти первое минимальное, затем первое минимальное
передаёт значение второму, второе третьему.
Так вот, алгоритм нерабочий

Ваш

@fever brain · 18.06.2016, 10:14

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

Ваш

Не может такого быть ), это моё выражение никак не даст цифру 4
и уж тем-более чтобы эта цифра повторилась 3 раза:

Visual Basic
1
2
3
4
        Do
            j = 10 + Fix(Rnd * 80)
            If InStr(1, Join(a), j) = 0 Then a(i) =  j: Exit Do
        Loop

уверен что вы написали чтото от себя
В предыдущем посту я не хотел ничем Вас обидеть, а лишь предположил что может неправильно работать, так как я тоже так хотел сделать и результат был неверным

@Genn55 · 19.06.2016, 00:46

От себя я только вставил свой массив,а ваше выражение закомментировал.Ведь разницы нет какой массив обрабатывать?
На скрене видно,что Sum не обнуляется.Пожалуйста не обижайтесь,я думал,что вы сразу поймете свой прокол (наверное спешили),а в остальном результат предсказуем.А на вас я не обижаюсь тем паче,что вы не правильно поняли мой алгоритм.Так как вы мне написали он не может работать в принципе, потому как меньше минимального не бывает.
У меня он работает так как и стоит в условии задачи.Исходный массив не модифицируется и выдает 3 разных минимальных числа,а в массиве они могут повторяться сколько угодно раз.

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
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Dim Min1 As Integer, Min2 As Integer, Min3 As Integer, i As Integer, Max As Integer
Dim A(1 To 10) As Integer
 
Private Sub Form_Load()
    A(1) = 15
    A(2) = 12
    A(3) = -11
    A(4) = 54
    A(5) = 11
    A(6) = 11
    A(7) = 32
    A(8) = 11
    A(9) = 11
    A(10) = -11
    Min1 = A(1)
    Max = Min1
End Sub
Private Sub Form_Click()
For i = 2 To UBound(A, 1)
    If A(i) > Max Then Max = A(i)
Next
  
    Min1 = Max
For i = 1 To UBound(A, 1)
    If A(i) < Min1 Then
        Min3 = Min2
        Min2 = Min1
        Min1 = A(i)
    ElseIf A(i) < Min2 And A(i) <> Min1 Then
        Min3 = Min2
        Min2 = A(i)
    ElseIf A(i) < Min3 And A(i) <> Min2 And A(i) <> Min1 Then
        Min3 = A(i)
   End If
Next
Print "Сумма минимальных элементов =  "; Min1 + Min2 + Min3
Print "Первый минимальный злемент =  "; Min1
Print "Второй минимальный злемент =  "; Min2
Print "Третий минимальный злемент =  "; Min3
End Sub

Если интересно,прогоните отладчиком и все станет ясно.Уверен,что вы напишите лучше.

@Catstail · 19.06.2016, 11:55

Без лишнего прохода по массиву (для поиска максимума, который не очень нужен):

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub minimum3(A() As Integer)
    min1% = A(1)
    min2% = 0
    min3% = 0
    k% = 1
    For i% = 2 To UBound(A, 1)
        aa% = A(i%)
        If k% = 1 Then
           If aa% < min1% Then
              min2% = min1%
              min1% = aa%
              k% = 2
           End If
        ElseIf k% = 2 Then
           If aa% < min1% Then
              min3% = min2%
              min2% = min1%
              min1% = aa%
           ElseIf aa% < min2% Then
              min3% = min2%
              min2% = aa%
           End If
           k% = 3
        Else
           If aa% < min1% Then
              min3% = min2%
              min2% = min1%
              min1% = aa%
           ElseIf aa% < min2% Then
              min3% = min2%
              min2% = aa%
           ElseIf aa% < min3% Then
              min3% = aa%
           End If
        End If
    Next i%
    Debug.Print min1%; " "; min2%; " "; min3%
End Sub
 
Sub Test()
Dim A(1 To 10) As Integer
    A(1) = 15
    A(2) = 12
    A(3) = -11
    A(4) = 54
    A(5) = 11
    A(6) = 11
    A(7) = 32
    A(8) = 11
    A(9) = 11
    A(10) = -11
    minimum3 A
End Sub

@Infinity20_5 · 19.06.2016, 12:06

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

я думал,что вы сразу поймете свой прокол

Никак не уловлю предмет спора.
Немного изменил код под себя. Строку 19:

Visual Basic
1
2
Private Sub Form_Click()' была
Private Sub Command1_Click()'сделал

Такая чепуха несуразная получилась, что и спорить не о чём. Смотрите картинку и архив (форма 53).

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
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Dim Min1 As Integer, Min2 As Integer, Min3 As Integer, i As Integer, Max As Integer
Dim A(1 To 10) As Integer
 
Private Sub Form_Load()
    A(1) = 15
    A(2) = 12
    A(3) = -11
    A(4) = 54
    A(5) = 11
    A(6) = 11
    A(7) = 32
    A(8) = 11
    A(9) = 11
    A(10) = -11
    Min1 = A(1)
    Max = Min1
End Sub
Private Sub Form_Click()
For i = 2 To UBound(A, 1)
    If A(i) > Max Then Max = A(i)
Next
  
    Min1 = Max
For i = 1 To UBound(A, 1)
    If A(i) < Min1 Then
        Min3 = Min2
        Min2 = Min1
        Min1 = A(i)
    ElseIf A(i) < Min2 And A(i) <> Min1 Then
        Min3 = Min2
        Min2 = A(i)
    ElseIf A(i) < Min3 And A(i) <> Min2 And A(i) <> Min1 Then
        Min3 = A(i)
   End If
Next
Print "Сумма минимальных элементов =  "; Min1 + Min2 + Min3
Print "Первый минимальный злемент =  "; Min1
Print "Второй минимальный злемент =  "; Min2
Print "Третий минимальный злемент =  "; Min3
End Sub

@Catstail · 19.06.2016, 14:42

Не по теме:

Infinity20_5, хочешь добрый совет? Сначала изучай алгоритмы (не заморачиваясь органами управления). Любую процедуру без параметров в VBA легко запустить, щелкнув по кнопке "run". А когда освоишься с алгоритмами, переходи к органам управления и событиям... Так будет производительнее.

А метод "народного умельца" (он же - метод тыка) заставляет тебя непроизводительно тратить время (высекая из предлагаемых решений "божьи искры" и "подстраивая решения под себя").

@Genn55 · 19.06.2016, 22:39

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

Такая чепуха несуразная получилась, что и спорить не о чём

Задача
Дан массив из десяти целых двузначных чисел. Найти сумму трех минимальных из них.
Вы хотели увидеть что то другое?
Catstail Вот что я получил:

@Catstail · 19.06.2016, 22:59

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

Catstail Вот что я получил:

- и правильно. А Вы что хотели? Три минимальных в данном случае - это -11 (два раза) и 11.

@Infinity20_5 · 19.06.2016, 23:11

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

Сначала изучай алгоритмы

Catstail!
С наскока перевернул смысл программы, немного погорячился.
На деле всё легко, изучать ничего не надо, достаточно было кликнуть по форме (смысл процедуры в переводе на русский). Картинки внизу.

Catstail, пожалуйста, помогите в теме Проект в VB. 3. 1. Создать проект, который по нажатию кнопки будет прорисовывать сердце проколотое стрелой сделать "график сердца" по формуле: x^2+(y-sqrt(|x|))^2=1. Это куда серьёзней, уже несколько часов потерял напрасно. Сейчас напишу подробности в той теме, про сердце.

@Genn55 · 19.06.2016, 23:22

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

А Вы что хотели?

Я понял так.В массиве имеются 3 минимума,т.е 3 разных числа и они не равны.А иначе....все решения в этой теме верны кроме моего.

@Catstail · 20.06.2016, 07:44

Genn55, условии задачи действительно есть неоднозначность. Но Ваш подход верен. Я лишь хотел чуть подправить.

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр 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. Опрашиваются регистры. . .

@Qwert322 0 / 0 / 0 Регистрация: 08.06.2016 Сообщений: 5

	Массив: Найти сумму трех минимальных из массива двузначных чисел 14.06.2016, 14:37. Показов 3282. Ответов 33 Метки нет (Все метки) Дан массив из десяти целых двузначных чисел. Найти сумму трех минимальных из них 0

@Genn55 413 / 250 / 118 Регистрация: 26.12.2012 Сообщений: 790
	18.06.2016, 00:03
	Когда все элементы равны Миниатюры 0

@Catstail
	19.06.2016, 14:42
	Не по теме: Infinity20_5, хочешь добрый совет? Сначала изучай алгоритмы (не заморачиваясь органами управления). Любую процедуру без параметров в VBA легко запустить, щелкнув по кнопке "run". А когда освоишься с алгоритмами, переходи к органам управления и событиям... Так будет производительнее. А метод "народного умельца" (он же - метод тыка) заставляет тебя непроизводительно тратить время (высекая из предлагаемых решений "божьи искры" и "подстраивая решения под себя"). 0

@Catstail Супер-модератор 38228 / 21160 / 4314 Регистрация: 12.02.2012 Сообщений: 34,773 Записей в блоге: 14
	20.06.2016, 07:44
	Genn55, условии задачи действительно есть неоднозначность. Но Ваш подход верен. Я лишь хотел чуть подправить. 1