Составить массив У подряд только из положительных элементов массива Х

@Assassinys · Регистрация: 14.03.2011

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

Составить массив У подряд только из положительных элементов массива Х(30), а массив Р только из отрицательных элементов. Найти среднее арифметическое между минимальным элементом массива У и максимальным элементом массива Р.

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
Option Explicit
Sub Pr_10()
Dim X(1 To 30) As Integer
Dim Y(1 To 30) As Integer
Dim P(1 To 30) As Integer
Dim i, j, k, mx, mn, SA, T As Integer
Dim Str As String
j = 0
k = 0
For i = 1 To 5
X(i) = InputBox("Ââåäèòå X(" & i & ")")
Next i
For i = 1 To 5
If X(i) > 0 Then
k = k + 1
Y(k) = X(i)
End If
If X(i) < 0 Then
j = j + 1
P(j) = X(i)
End If
Next i
mx = Y(1)
mn = P(1)
For i = 1 To 5
If P(j) < mn Then mn = P(j)
If Y(k) > mx Then mx = Y(k)
Next i
SA = (mn + mx) / 2
For T = 1 To k
Str = Str & "Y(" & T & ")" & Space(5) & (Y(T)) & Space(5) & "P(" & T & ")" & Space(5) & (P(T)) & Chr(13)
Next T
MsgBox Str, , "Ìàññèâ ïîëîæèòåëüíûõ ýëåìåíòîâ"
MsgBox SA, , "Ñðåäíåå àðèôìåòè÷åñêîå ìåæäó mn è mx"
End Sub

@19vitek · 28.04.2011, 22:09

Почему так?

Visual Basic
1
2
3
4
For i = 1 To 5
If P(j) < mn Then mn = P(j)
If Y(k) > mx Then mx = Y(k)
Next i

Индекс цикла i а внутри цикла применяются J и k?

@Assassinys · 28.04.2011, 22:12 **[ТС]**

исправьте пожалуйста этот код

@19vitek · 28.04.2011, 22:19

Для начала.

Visual Basic
1
2
3
4
5
6
For i = 1 To k
If Y(i) > mx Then mx = Y(i)
Next i
For i = 1 To j
If P(i) < mn Then mn = P(i)
Next i

@Busine2009 · 29.04.2011, 07:54

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

Составить массив У подряд только

фраза не согласованная или что означает подряд?

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

а массив Р только из отрицательных элементов.

не подряд?

@Assassinys · 29.04.2011, 15:20 **[ТС]**

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

фраза не согласованная или что означает подряд?

не подряд?

P тоже подряд

@Busine2009 · 29.04.2011, 15:40

Assassinys,
а что слово подряд означает в данном контексте?

@Assassinys · 29.04.2011, 18:36 **[ТС]**

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

Assassinys,
а что слово подряд означает в данном контексте?

от меньшего к большему

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Assassinys 15 / 8 / 2 Регистрация: 14.03.2011 Сообщений: 105
	28.04.2011, 22:12 [ТС]
	исправьте пожалуйста этот код 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	29.04.2011, 15:40
	Assassinys, а что слово подряд означает в данном контексте? 0