Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Pudge1488
0 / 0 / 1
Регистрация: 13.01.2017
Сообщений: 31
1

найти число, которое меньше максимального элемента массива, но больше всех других его элементов

18.03.2017, 21:21. Просмотров 845. Ответов 3
Метки нет (Все метки)

В массиве A[N] найти второе по значению число (т.е. вывести на печать число, которое меньше максимального элемента массива, но больше всех других его элементов)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2017, 21:21
Ответы с готовыми решениями:

Вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов
Составить программу, которая в массиве A находит второе по величине число (вывести на печать число,...

Напечать число, которое меньше максимального элемента,но больше всех остальных элементов
Составить программу,которая в массиве A находит второе по величине число(вывести на печать...

Нахождение элемента массива, который меньше максимального но больше других
var j,i,c:byte; a:array of integer; procedure mass(i,j:byte; var c,max:byte); begin max:=1; ...

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

Число элементов массива X(n), которые больше максимального элемента в массиве Y(n)
Число элементов массива X(n), которые больше максимального элемента в массиве Y(n). Использовать...

3
Genn55
405 / 244 / 116
Регистрация: 26.12.2012
Сообщений: 783
19.03.2017, 00:13 2
Лучший ответ Сообщение было отмечено echs как решение

Решение

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
Option Explicit
 Dim A(1 To 10) As Integer
Private Sub Form_Click()
  Dim max1 As Integer, max2 As Integer, i As Integer
    max1 = A(1)
    max2 = 0
    For i = 2 To UBound(A, 1)
        If A(i) > max1 Then
           max2 = max1
           max1 = A(i)
        ElseIf A(i) > max2 Then
          max2 = A(i)
        End If
    Next
    Print max2
End Sub
Private Sub Form_Load()
 
    A(6) = 26
    A(9) = 12
    A(5) = 5
    A(2) = 2
    A(8) = 11
    A(3) = 3
    A(1) = 100
    A(4) = 4
    A(7) = 9
    A(10) = 113
End Sub
2
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
19.03.2017, 10:29 3
Genn55
Классная программа! Но есть одно НО.
Что должна выдать программа, если все числа равны?
Второго максимального числа просто не существует...
2
Genn55
405 / 244 / 116
Регистрация: 26.12.2012
Сообщений: 783
19.03.2017, 21:38 4
Цитата Сообщение от echs Посмотреть сообщение
Что должна выдать программа, если все числа равны?
Да Вы правы.Не учел.
Если заменить 11ю строку на
Visual Basic
1
ElseIf A(i) > max2 And A(i) <> max1 Then
будет работать правильно выдаст 0,второго же максимального числа не существует...
1
19.03.2017, 21:38
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2017, 21:38

Вывести числа, имеющие значения меньше максимального и больше среднего значения всех элементов массива
Задан массив целых чисел. Вывести на экран числа, имеющие значения меньше максимального и больше...

Передать в функцию целое число. Функция заменяет его на ближайшее простое число, которое больше или меньше исходного. Вернуться в main( ) и распечатат
Передать в функцию целое число. Функция заменяет его на ближайшее простое число, которое больше или...

Найти номера всех элементов массива, которые равны, больше и меньше k
Всем привет! Пожалуйста, помогите реализовать программу на C++. Задан одномерный числовой массив A...


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

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

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