Одномерные массивы код(ы)

@BoJIK · Регистрация: 05.01.2011

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

Помогите пожалуйста с одномерными массивами...а то я чет ваще не секу(((

Ввести одномерный массив x= {-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3}.
Заменить в нем все отрицательные элементы значением минимального элемента, а все положительные – максимальным значением.

Ввести одномерный массив a = {5, -2, 0, 3, 4, 12, 7}.
Вычислить и вывести среднее арифметическое значение положительных элементов массива и заменить этим значением те элементы массива, которые больше среднего арифметического

Ввести одномерный массив a={2.35,-4.15,0,-3.1, 7.8, 6.3,-3.05,1.5}.
Найти и вывести среднее геометрическое положительных элементов массива a и индекс элемента, наиболее близкого к среднему геометрическому. Затем упорядочить массив по убыванию.

Буду благодарен за ответы!)))

p.s Только хотелосьбы увидеть полный код а то везде обрывками....не понятно как тоо((

@YuraAAA · 05.01.2011, 14:44

Вот первая задача. Разбирайтесь дальше сами.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Base 1
Private Sub Form_Load()
Dim X, max, min, txt
X = Array(-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3)
max = X(1): min = X(1)
For i = 1 To UBound(X)
    If X(i) > max Then max = X(i)
    If X(i) < min Then min = X(i)
Next i
txt = ""
 
For i = 1 To UBound(X)
    If X(i) < 0 Then X(i) = min
    If X(i) > 0 Then X(i) = max
    txt = txt & X(i) & " "
Next i
MsgBox txt
End Sub

@BoJIK · 05.01.2011, 14:48 **[ТС]**

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа 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	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@BoJIK 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 3

	Одномерные массивы код(ы) 05.01.2011, 14:11. Показов 1820. Ответов 2 Метки нет (Все метки) Помогите пожалуйста с одномерными массивами...а то я чет ваще не секу((( Ввести одномерный массив x= {-1.5, 0.1, 12, 0, -2.2, 0.5, -1, 0.3}. Заменить в нем все отрицательные элементы значением минимального элемента, а все положительные – максимальным значением. Ввести одномерный массив a = {5, -2, 0, 3, 4, 12, 7}. Вычислить и вывести среднее арифметическое значение положительных элементов массива и заменить этим значением те элементы массива, которые больше среднего арифметического Ввести одномерный массив a={2.35,-4.15,0,-3.1, 7.8, 6.3,-3.05,1.5}. Найти и вывести среднее геометрическое положительных элементов массива a и индекс элемента, наиболее близкого к среднему геометрическому. Затем упорядочить массив по убыванию. Буду благодарен за ответы!))) p.s Только хотелосьбы увидеть полный код а то везде обрывками....не понятно как тоо(( 0

@BoJIK 0 / 0 / 0 Регистрация: 05.01.2011 Сообщений: 3
	05.01.2011, 14:48 [ТС]
	Спасибо) 0