Найти среднее арифметическое отрицательных элементов массива

@Герасим · Регистрация: 11.04.2010

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

народ подскажите как Вычислить среднее арифметическое отрицательных элементов массива, превышающих заданную величину, подсчитать количество таких элементов?

@YuraAAA · 18.12.2010, 00:06

Сообщение от Герасим

подскажите

Подсказываем.
1.Задаём размерность, задаём величину.
2.Заполняем массив. В этом же цикле проверяем: если элемент отрицательный И если он больше заданной величины - увеличиваем значение счётчика на 1, сумму на текущий элемент.
3. Если счётчик не равен 0 - то делим сумму на счётчик, иначе сообщение об ошибке.
4. Выводим сумма/счётчик и счётчик.

@Герасим · 18.12.2010, 13:39 **[ТС]**

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

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
54
55
Dim mas() As Integer, n As Integer
Private Sub Command1_Click()
a = Val(InputBox("введите число"))
n = Val(InputBox("введите размер массива"))
Print "размер массива = "; n
Print "введеное число = "; a
ReDim mas(1 To n)
Randomize
For k = 1 To n
mas(k) = Rnd * 100 - 50
Next k
Print: Print
'For k=1 To n
k = 1 'начальный min элемент
Do
Print mas(k);
k = k + 1 'изменение управляющей переменной цикла
Loop Until k > n
Print: Print
'Next k
'поиск мin модуля элемента
kmin = 1 'начальный min элемент
For k = 2 To n
If mas(k) < mas(kmin) Then
kmin = k
End If
Next
Print "min элемент = "; mas(kmin)
Print "номер min элемента равен = "; kmin
'поиск мin  положительного элемента
p = 0 'нет положительного элемента
For k = 1 To n
If mas(k) > 0 Then
kmin = k 'начальный номер min элемента
p = 1
End If
Next k
If p = 0 Then
Print "нет положительного элемента"
Else
For k = 1 To n
If mas(k) > 0 Then
If mas(k) < mas(kmin) Then
kmin = k
End If
End If
Next
Print "min положительный элемент = "; mas(kmin)
Print "номер min положительного элемента = "; kmin
End If
End Sub
 
Private Sub выход_Click()
End
End Sub

@YuraAAA · 18.12.2010, 15:56

1. Можно выводить сразу в одном цикле. Да и считать в одном то же можно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim c as byte, sum as integer
For k = 1 To n
mas(k) = Rnd * 100 - 50
Print mas(k)
If mas(k) > a and mas(k) < 0 then c = c + 1:sum = sum + mas(k)
Next k
'Вот и всё посчитанно
If c = 0 then print "Net takix elementov!" : exit sub
sum = sum / c
Print "Srednee = ";sum
Print "Kol-vo = ";c

@Герасим · 19.12.2010, 17:23 **[ТС]**

работает,но почему то не считает....выдае сообщение что "нет таких элементов",хотя они есть!

@YuraAAA · 19.12.2010, 18:05

Давай свой код

@Герасим · 19.12.2010, 21:05 **[ТС]**

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
54
55
56
57
58
59
60
61
Dim mas() As Integer, n As Integer, c As Byte, sum As Integer
Private Sub Command1_Click()
a = Val(InputBox("введите число"))
n = Val(InputBox("введите размер массива"))
Print "размер массива = "; n
Print "введеное число = "; a
ReDim mas(1 To n)
Randomize
For k = 1 To n
mas(k) = Rnd * 100 - 50
Next k
Print: Print
'For k=1 To n
k = 1 'начальный min элемент
Do
Print mas(k);
k = k + 1 'изменение управляющей переменной цикла
Loop Until k > n
Print: Print
'Next k
'поиск мin модуля элемента
kmin = 1 'начальный min элемент
For k = 2 To n
If mas(k) < mas(kmin) Then
kmin = k
End If
Next
Print "min элемент = "; mas(kmin)
Print "номер min элемента равен = "; kmin
'поиск мin  положительного элемента
p = 0 'нет положительного элемента
For k = 1 To n
If mas(k) > 0 Then
kmin = k 'начальный номер min элемента
p = 1
End If
Next k
If p = 0 Then
Print "нет положительного элемента"
Else
For k = 1 To n
If mas(k) > 0 Then
If mas(k) < mas(kmin) Then
kmin = k
End If
End If
Next
Print "min положительный элемент = "; mas(kmin)
Print "номер min положительного элемента = "; kmin
 
c = 0
If mas(k) > a And mas(k) < 0 Then c = c + 1
sum = sum + mas(k)
'Вот и всё посчитанно
If c = 0 Then Print "Net takix elementov!": Exit Sub
sum = sum / c
Print "Srednee = "; sum
Print "Kol-vo = "; c
 
End If
End Sub

@YuraAAA · 20.12.2010, 00:07

Почему вот это

Сообщение от Герасим

If mas(k) > a And mas(k) < 0 Then c = c + 1
sum = sum + mas(k)

не в цикле? как оно считать будет?))

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29

	Найти среднее арифметическое отрицательных элементов массива 17.12.2010, 19:23. Показов 4058. Ответов 7 Метки нет (Все метки) народ подскажите как Вычислить среднее арифметическое отрицательных элементов массива, превышающих заданную величину, подсчитать количество таких элементов? 0

@Герасим 0 / 0 / 0 Регистрация: 11.04.2010 Сообщений: 29
	19.12.2010, 17:23 [ТС]
	работает,но почему то не считает....выдае сообщение что "нет таких элементов",хотя они есть! 0

@YuraAAA 1605 / 1337 / 291 Регистрация: 25.10.2009 Сообщений: 3,487 Записей в блоге: 2
	19.12.2010, 18:05
	Давай свой код 0