Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 1
Регистрация: 19.04.2011
Сообщений: 10
1

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

19.04.2011, 15:53. Показов 1672. Ответов 1
Метки нет (Все метки)

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

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
Dim a() As Single
Dim i, n As Integer
Dim k As String
Dim Max As Single
 
Private Sub Command1_Click()
n = Val(Text1.Text)
ReDim a(1 To n)
Randomize Timer
For i = 1 To n                                                                                                                                                        
a(i) = Int(101 * Rnd())                                                                                               
Text2.Text = Text2.Text + "" + Str(a(i))
Next i
End Sub
 
Private Sub Command2_Click()
Max = a(1)
For i = 2 To n
  If a(i) > Max Then
     Max = a(i)
  End If
Next i
Text3.Text = Str(Max)
                End Sub
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2011, 15:53
Ответы с готовыми решениями:

Найти сумму двух наибольших из трех чисел
2. Даны три числа. Найти сумму двух наибольших из них.

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

Найти количество максимальных среди трех чисел
Помогите пожалуйста!!! Задача: Найти количество максимальных среди трех чисел.

Найти сумму десяти чисел
Получил задание от учителя "10 чисел, найти сумму, написать программу" Это как понимать?

1
1605 / 1337 / 291
Регистрация: 25.10.2009
Сообщений: 3,487
Записей в блоге: 2
20.04.2011, 01:24 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

В таких задачах немного другой путь. Массив сортируется и берётся 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
Private Sub Command1_Click()
Randomize
'Объявляем переменные
Dim a() As Single, n As Byte, temp, txt
Dim sum As Single, i As Byte, j As Byte
'Задаём размерность
n = InputBox("n")
ReDim a(1 To n)
'Заполняем массив случайными величинами
For i = 1 To n
    a(i) = Int(100 * Rnd)
    txt = txt & a(i) & " "
Next i
'Сортируем по убыванию (метод пузырька)
For i = 1 To n
    For j = 1 To n - i
        If a(j) < a(j + 1) Then
            temp = a(j)
            a(j) = a(j + 1)
            a(j + 1) = temp
        End If
    Next j
Next i
'Берём 3 первых элемента
sum = a(1) + a(2) + a(3)
MsgBox "Array = " & txt & Chr(13) & "Maximum = " & sum
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.04.2011, 01:24

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Найти сумму десяти чисел
Здравствуйте, по Дейтелу писал задачку, кодировка такая: #include &lt;iostream&gt; int main() {...

Найти сумму десяти произвольных чисел
Найти сумму десяти произвольных чисел. Результат отправить в переменную S

Найти сумму десяти произвольных чисел
№1 Эту надо решить с помощью Функции :swoon: Даны три числа x,y,z Найти а) max(x+y+z,xyz)+3 б)...

Найти сумму первых десяти чисел, кратных пяти
Пожалуйста помогите Разработать программу в среде программирования Lazarus. Для каждой задачи...


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

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

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