В массиве(1 to N)as Double вычислить количество элементов, расположенных в диапазоне от А до В

@sav777 · Регистрация: 08.05.2012

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

В одномерном массиве, который состоит из N вещественных элементов, вычислить:
1) количество элементов массива, расположенных в диапазоне от А до В;
2) сумму элементов массива, расположенных после максимального элемента.
Упорядочить элементы массива по убыванию модулей элементов.
На экран вывести: исходный массив; вычисленные значения и преобразованный массив.

Добавлено через 9 минут
помогите плиз, очень прошу, завтра нужно здать ее,

SoftIce · 15.05.2012, 11:32

в диапазоне от А до В

А и В - индексы?
Если да , то:

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
Private Sub Command1_Click()
Dim N As Integer, M() As Single
Dim A As Integer, B As Integer
Dim kol As Integer, sum As Single, sumAfterMax As Single
Dim max As Single, indMax As Integer, tmp As Single
Dim i As Integer, j As Integer
Randomize
N = InputBox("Введите размер массива N", "", 20)
A = InputBox("Введите число A", "", 5)
B = InputBox("Введите число B", "", 10)
ReDim M(1 To N)
 
Print "Исходный массив:  "
For i = 1 To N
    M(i) = Rnd * 20 - 10
    If i > A And i < B Then kol = kol + 1
   Print Round(M(i), 2);
Next i
 
Print
Print "Количество элементов между " & A & " и " & B & " равно " & kol
max = M(1): indMax = 1
Print
For i = 1 To N
     If max < M(i) Then max = M(i): indMax = i
Next i
Print "Максимальный элемент массива - M(" & indMax & ") = " & max
 
For i = indMax + 1 To N
     sumAfterMax = sumAfterMax + M(i)
Next i
Print "Cуммa элементов массива, расположенных после максимального элемента = " & sumAfterMax
 
For i = 1 To N
     For j = 1 To N - 1
     If Abs(M(j)) < Abs(M(j + 1)) Then
        tmp = M(j)
        M(j) = M(j + 1)
        M(j + 1) = tmp
    End If
    Next j
Next i
 
Print
Print "Упорядоченный (по убыванию модулей элементов) массив : "
For i = 1 To N
   Print Round(M(i), 2);
Next i
 
End Sub

@sav777 · 15.05.2012, 21:31 **[ТС]**

А почему нельзя вводить свои елементы масива, а вводятся какието свои елементы, Пожалуйста помогите.

@Апострофф · 15.05.2012, 21:56

sav777, замени 15-ю строку кода на такую -

Visual Basic
1
M(i) =inputbox("Мой элемент массива") ' Rnd * 20 - 10

Но и это тебе не поможет, если не знаешь основ...

@sav777 · 15.05.2012, 23:13 **[ТС]**

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

Добавлено через 1 час 0 минут
Все работает, но ночему она не находит сумму элементов массива, расположенных после максимального элемента.

Добавлено через 55 секунд

Сообщение от Апострофф

sav777, замени 15-ю строку кода на такую -

Visual Basic
1
M(i) =inputbox("Мой элемент массива") ' Rnd * 20 - 10

Но и это тебе не поможет, если не знаешь основ...

Как раз оно мне очень помогло. Спасибо. Замена работает.

Добавлено через 52 секунды
SoftIce, Спасибо

SoftIce · 15.05.2012, 23:23

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
Private Sub Command1_Click()
Dim N As Integer, M() As Single
Dim A As Integer, B As Integer
Dim kol As Integer, sum As Single, sumAfterMax As Single
Dim max As Single, indMax As Integer, tmp As Single
Dim i As Integer, j As Integer
AutoRedraw = True
N = InputBox("Введите размер массива N", "", 20)
ReDim M(1 To N)
 
Print "Исходный массив:  "
For i = 1 To N
    M(i) = InputBox("Мой элемент массива № " & i) ' Rnd * 20 - 10
    Print M(i);
Next i
 
A = InputBox("Введите число A", "", 5)
B = InputBox("Введите число B", "", 10)
For i = 1 To N
   If i > A And i < B Then kol = kol + 1
Next i
Print
Print "Количество элементов между " & A & " и " & B & " равно " & kol
max = M(1): indMax = 1
Print
 
For i = 1 To N
     If max < M(i) Then max = M(i): indMax = i
Next i
Print "Максимальный элемент массива - M(" & indMax & ") = " & max
 
For i = indMax + 1 To N
     sumAfterMax = sumAfterMax + M(i)
Next i
Print "Cуммa элементов массива, расположенных после максимального элемента = " & sumAfterMax
 
For i = 1 To N
     For j = 1 To N - 1
     If Abs(M(j)) < Abs(M(j + 1)) Then
        tmp = M(j)
        M(j) = M(j + 1)
        M(j + 1) = tmp
    End If
    Next j
Next i
 
Print
Print "Упорядоченный (по убыванию модулей элементов) массив : "
For i = 1 To N
   Print M(i);
Next i
 
End Sub

@sav777 · 16.05.2012, 01:34 **[ТС]**

Пашет как трактор. Спасибо.

Добавлено через 1 час 21 минуту
А как в ней сделать вывод даных не через принт, а через Label, потому что масивы я не могу ввести в Label, а вводится только " Исходный масив: ", а сам масив выводится через принт.

SoftIce · 16.05.2012, 06:13

Сделай Label1 побольше

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
Private Sub Command1_Click()
Dim N As Integer, M() As Double
Dim A As Integer, B As Integer
Dim kol As Integer, sum As Double, sumAfterMax As Double
Dim max As Double, indMax As Integer, tmp As Double
Dim i As Integer, j As Integer, s As String
AutoRedraw = True
Label1.Caption = ""
N = InputBox("Введите размер массива N", "", 20)
ReDim M(1 To N)
 
Label1.Caption = "Исходный массив:  " & vbCrLf
For i = 1 To N
    M(i) = InputBox("Мой элемент массива № " & i, , Int(Rnd * 20 - 10)) ' Rnd * 20 - 10
    Label1.Caption = Label1.Caption & " " & M(i) & ","
Next i
 
A = InputBox("Введите число A", "", 5)
B = InputBox("Введите число B", "", 10)
For i = 1 To N
   If i > A And i < B Then kol = kol + 1
Next i
Label1.Caption = Label1.Caption & vbCrLf & vbCrLf
Label1.Caption = Label1.Caption & "Количество элементов между " & A & " и " & B & " равно " & kol & vbCrLf & vbCrLf
max = M(1): indMax = 1
Print
 
For i = 1 To N
     If max < M(i) Then max = M(i): indMax = i
Next i
Label1.Caption = Label1.Caption & "Максимальный элемент массива - M(" & indMax & ") = " & max & vbCrLf & vbCrLf
 
For i = indMax + 1 To N
     sumAfterMax = sumAfterMax + M(i)
Next i
Label1.Caption = Label1.Caption & "Cуммa элементов массива, расположенных после максимального элемента = " & sumAfterMax & vbCrLf & vbCrLf
 
For i = 1 To N
     For j = 1 To N - 1
     If Abs(M(j)) < Abs(M(j + 1)) Then
        tmp = M(j)
        M(j) = M(j + 1)
        M(j + 1) = tmp
    End If
    Next j
Next i
 
Label1.Caption = Label1.Caption & "Упорядоченный (по убыванию модулей элементов) массив : " & vbCrLf
For i = 1 To N
   Label1.Caption = Label1.Caption & M(i) & ", "
Next i
 
End Sub

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

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

я не могу ввести в Label

Это уже вывод , а не ввод.

@sav777 · 16.05.2012, 13:28 **[ТС]**

Вот это мне и нужно. За работу поставили 5+. Спасибо.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@sav777 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 8

	В массиве(1 to N)as Double вычислить количество элементов, расположенных в диапазоне от А до В 14.05.2012, 22:36. Показов 1796. Ответов 8 Метки нет (Все метки) В одномерном массиве, который состоит из N вещественных элементов, вычислить: 1) количество элементов массива, расположенных в диапазоне от А до В; 2) сумму элементов массива, расположенных после максимального элемента. Упорядочить элементы массива по убыванию модулей элементов. На экран вывести: исходный массив; вычисленные значения и преобразованный массив. Добавлено через 9 минут помогите плиз, очень прошу, завтра нужно здать ее, 0

@sav777 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 8
	15.05.2012, 21:31 [ТС]
	А почему нельзя вводить свои елементы масива, а вводятся какието свои елементы, Пожалуйста помогите. 0

@sav777 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 8
	16.05.2012, 01:34 [ТС]
	Пашет как трактор. Спасибо. Добавлено через 1 час 21 минуту А как в ней сделать вывод даных не через принт, а через Label, потому что масивы я не могу ввести в Label, а вводится только " Исходный масив: ", а сам масив выводится через принт. 0

@sav777 0 / 0 / 0 Регистрация: 08.05.2012 Сообщений: 8
	16.05.2012, 13:28 [ТС]
	Вот это мне и нужно. За работу поставили 5+. Спасибо. 0