Поменять местами второй по величине максимальный и минимальный элементы

@dnb_dnb · Регистрация: 13.11.2011

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

Дан массив A, заполненный датчиком случайных чисел,
целыми числами в диапазоне от -10 до +20. Поменять
местами второй по величине максимальный и минимальный элементы.

Добавлено через 7 часов 11 минут
вот поробывал написать программу которая просто ищет втрой по величене элемент, и то не работает(

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
Sub yy()
Dim a(10) As Single, b(10) As Single, i As Single, max As Single, j As Single, maxt As Single
Sheets("лист1").Select
    Range("a1:h100") = Empty
Randomize
For i = 1 To 10
    a(i) = Int(Rnd * 10 + 1)
    Cells(i, 1) = a(i)
Next i
max = a(1)
j = 1
 
 
For i = 1 To 10
    If a(i) > a(1) Then
max = a(i)
 
 
a(i) = b(j)
 j = j + 1
 Cells(i, 2) = b(j)
End If
Next i
 
maxt = b(1)
For i = 1 To j
    If a(1) > maxt Then maxt = a(i)
Next i
MsgBox "Второй по величине объект: " + Str(maxt)
 
End Sub

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

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
Sub yy()
Dim a(10) As Single, b(10) As Single, i As Single, max As Single, j As Single, maxt As Single
Sheets("лист1").Select
    Range("a1:h100") = Empty
Randomize
For i = 1 To 10
    a(i) = Int(Rnd * 10 + 1)
    Cells(i, 1) = a(i)
Next i
 
max = a(1)
 
For i = 1 To 10
    If a(i) > a(1) Then
max = a(i)
End If
Next i
MsgBox "максимальный элемент: " + Str(max)
 
 For i = 1 To 10
 If a(i) <> max Then
j = j + 1: b(j) = a(i)
 
 End If
 Next i
 
 
        For j = 1 To 10
        Cells(j, 2) = b(j)
        Next j
 
maxt = b(1)
For i = 1 To 10
    If b(1) > maxt Then maxt = b(i)
Next i
MsgBox "Второй по величине объект: " + Str(maxt)
 
End Sub

вот ещё наробтки, посмотрите пожалуйста. завтра экзамен уже

@lazy g. · 20.01.2012, 21:56

Очень побыстрому набросал. Во вложении пример проекта на VB6.0

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
Private Sub Command1_Click()
Text1.Text = ""
Dim a(10) As Single, b(10) As Single, i As Single, max As Single, j As Single, maxt As Single
Randomize
    For i = 1 To 10
    k = Rnd
    a(i) = Int(-10 + (k * 20))
    Text1.Text = Text1.Text + CStr(a(i)) + "     "
    Next i
max = a(1)
    For i = 1 To 10
    If a(i) > max Then max = a(i): i1 = i
    Next i
MsgBox "максимальный элемент: " + Str(max)
max1 = a(1)
    For i = 1 To 10
    If a(i) < max And a(i) > max1 Then max1 = a(i): i2 = i
    Next i
MsgBox "Второй по величине объект: " + Str(max1)
a(i1) = max1
a(i2) = max
Text1.Text = Text1.Text + vbCrLf
    For i = 1 To 10
    Text1.Text = Text1.Text + CStr(a(i)) + "     "
    Next i
 
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
 
End Sub

@dnb_dnb · 20.01.2012, 22:56 **[ТС]**

Вот на основе вашего решения я поробывал "связать" с экселем: (работает неправильно)

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
Sub yy()
Dim a(10) As Single, b(10) As Single, i As Single, max As Single, j As Single, maxt As Single
Sheets("лист1").Select
    Range("a1:h100") = Empty
Randomize
For i = 1 To 10
    a(i) = 10 + Int(80 * Rnd)
    Cells(i, 1) = a(i)
Next i
 
max = a(1)
 
For i = 1 To 10
    If a(i) > a(1) Then
      max = a(i)
    End If
Next i
 
MsgBox "Максимальный элемент: " + Str(max)
maxt = a(1)
 
 For i = 1 To 10
   If a(i) < max And a(i) > max1 Then maxt = a(i)
   Cells(i, 2) = a(i)
 Next i
MsgBox "Второй по величине массив: " + Str(maxt)
 
End Sub

@lazy g. · 20.01.2012, 23:38

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
Private Sub Command1_Click()
Text1.Text = ""
Dim a(10) As Single, b(10) As Single, i As Single, max As Single, j As Single, maxt As Single
Dim o As Object
Randomize
    For i = 0 To 9
    k = Rnd
    a(i) = Int(-10 + (k * 20))
    Text1.Text = Text1.Text + CStr(a(i)) + "     "
    Next i
max = a(1)
    For i = 0 To 9
    If a(i) > max Then max = a(i): i1 = i
    Next i
MsgBox "ìàêñèìàëüíûé ýëåìåíò: " + Str(max)
max1 = a(1)
    For i = 0 To 9
    b(i) = a(i)
    If a(i) < max And a(i) > max1 Then max1 = a(i): i2 = i
    Next i
MsgBox "Âòîðîé ïî âåëè÷èíå îáúåêò: " + Str(max1)
b(i1) = max1
b(i2) = max
Text1.Text = Text1.Text + vbCrLf
    For i = 0 To 9
    Text1.Text = Text1.Text + CStr(b(i)) + "     "
    Next i
 Set o = CreateObject("excel.application")
        o.Visible = True
        o.Workbooks.Add
        o.sheets("Ëèñò1").Range("A1:J1").Value = a
        o.sheets("Ëèñò1").Range("A2:J2").Value = b
End Sub
 
Private Sub Form_Load()
Text1.Text = ""
End Sub

@lazy g. · 20.01.2012, 23:48

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

max = a(1)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
For i = 1 To 10
   If a(i) > a(1) Then max = a(i) - здесь ошибка 1, необходимо задать в начале цикла МАКС, потом этот МАКС сравнивать, так получается все время с 1-м эл-м массива сравнивается, также как описано ниже, надо запомнить расположение в массиве данного эл-та. i1=i
   End If
Next i
MsgBox "Максимальный элемент: " + Str(max)
maxt = a(1)  - здесь что будем использовать maxt или max1?! Наврено все-таки max1
For i = 1 To 10
  If a(i) < max And a(i) > max1 Then maxt = a(i)  - опять maxt! max1, также поскольку нам надо будет поменять ел-ты местами надо запомнить их расположение в массиве (т.е., если у нас выполнится условие, то запонить i2=i;
  Cells(i, 2) = a(i) - что то непонятное.
  Next i
MsgBox "Второй по величине массив: " + Str(maxt)
End Su

b

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

@lazy g. · 20.01.2012, 23:52

Вот последний код так работает

@lazy g. · 20.01.2012, 23:55

Прошу прощения, на скриншоте ошибка, там цикл неправильно был в программе, вот исправленный

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@lazy g. 41 / 39 / 7 Регистрация: 16.01.2012 Сообщений: 163
	20.01.2012, 23:52
	Вот последний код так работает Миниатюры 1