Вычислить среднее геометрическое нечетных элементов одномерного массива принадлежащих интервалу (50,250)

@winonabuts · Регистрация: 29.01.2021

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

...

@Argus19 · 31.01.2021, 00:23

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

...

?
И где массив?

@winonabuts · 31.01.2021, 00:40 **[ТС]**

Argus19, его нет

@Argus19 · 31.01.2021, 00:47

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

его нет

Так создайте. Судя по всему, массив целых чисел в диапазоне от 50 до 250? Из скольких элементов он состоит?
Без ответов на эти вопросы, решить задачу не получится.

@winonabuts · 31.01.2021, 00:50 **[ТС]**

Argus19, A(n)

@snipe · 31.01.2021, 01:24

winonabuts,
а чему равно n

@winonabuts · 31.01.2021, 01:28 **[ТС]**

snipe, интервалу (50,250)

@snipe · 31.01.2021, 01:32

задали же вопрос

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

Из скольких элементов он состоит?

сколько элементов массива?
1?
2?
100?

@winonabuts · 31.01.2021, 01:57 **[ТС]**

snipe, 1

@snipe · 31.01.2021, 02:05

вот - разбирайтесь

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim a&(), n&, asd$, m As Double, t&, k&
n = InputBox("Введите количество элементов массива")
ReDim a(1 To n)
m = 1
Randomize
For i = 1 To n
a(i) = Int((250 - 50 + 1) * Rnd()) + 50
If i And 1 Then m = m * a(i): t = t + 1
If k = 10 Then k = 0: asd = asd & Chr(10) & Chr(13)
asd = asd & " " & a(i)
k = k + 1
Next i
m = m ^ (1 / t)
MsgBox "В массиве " & Chr(10) & Chr(13) & asd & Chr(10) & Chr(13) & "Среднее геомертическое нечетных элеменов массива равно" & Chr(10) & Chr(13) & m

I can · 31.01.2021, 09:30

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

сколько элементов массива?

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

snipe, 1

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

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

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

Chr(10) & Chr(13)

Это толстый троллинг ?

@snipe · 31.01.2021, 09:35

Сообщение от I can

Это толстый троллинг ?

привычка которая вторая натура

@Catstail · 01.02.2021, 16:50

В функциональном стиле:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub Test_Z2a()
Dim c As aIter
Dim d As aIter
 
    Set c = New Container
    c.Init Array(1, 2, 3, 5, 9, 11, 2, 7, 23, 45, 67, 100)
    Set d = c.Filter("x -> (x mod 2)<>0")
    Debug.Print (d.production) ^ (1 / d.size)
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	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. На борту пять. . .

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124

	Вычислить среднее геометрическое нечетных элементов одномерного массива принадлежащих интервалу (50,250) 30.01.2021, 23:27. Показов 1857. Ответов 12 Метки нет (Все метки) ... 0

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124
	31.01.2021, 00:40 [ТС]
	Argus19, его нет 0

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124
	31.01.2021, 00:50 [ТС]
	Argus19, A(n) 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,671
	31.01.2021, 01:24
	winonabuts, а чему равно n 0

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124
	31.01.2021, 01:28 [ТС]
	snipe, интервалу (50,250) 0

@winonabuts 1 / 1 / 0 Регистрация: 29.01.2021 Сообщений: 124
	31.01.2021, 01:57 [ТС]
	snipe, 1 0