Заменить отрицательные элементы массива удвоенным значением - VB

Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.83/6:

@Tino4ka 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7

	Заменить отрицательные элементы массива удвоенным значением 05.04.2012, 10:06. Показов 1173. Ответов 2 Метки нет (Все метки) Дан массив B(k), k=1;2;3...6. Заменить отрицательные числа их удвоенным значением. Заранее спасибо за помощь. 0

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

05.04.2012, 10:06

Ответы с готовыми решениями:

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

Заменить значением C все элементы массива, которые равны K
С клавиатуры вводится массив целых чисел A размером N, а также целые числа K и C. Заменить значением C все элементы массива, которые равны...

Отрицательные элементы массива заменить их модулями
Добрый вечер всем))) Требуется Ваша помощь. Задачка из прак. работы. 1. Дан одномерный массив А длиной М. Отрицательные элементы заменить...

SoftIce

es geht mir gut

11274 / 4760 / 1183

Регистрация: 27.07.2011

Сообщений: 11,439

05.04.2012, 10:31

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Dim B() As Integer, i As Integer, k As Integer
k = 6: ReDim B(1 To k)
For i = 1 To k
      B(i) = InputBox("Введите число № " & i, , 3)
      If B(i) < 0 Then B(i) = B(i) * 2
      Print B(i); vbTab;
Next i
Print
End Sub

@Tino4ka 0 / 0 / 0 Регистрация: 05.04.2012 Сообщений: 7
	05.04.2012, 10:59 [ТС]
	SoftIce, большое спасибо 0

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

05.04.2012, 10:59

Помогаю со студенческими работами здесь

Заменить отрицательные элементы массива на их модули
HELP помогите написать полностью программу

Массив. Отрицательные элементы исходного массива заменить удвоенным значением
помогите пожалуйста с массивом !!!!!!! Сформировать линейный массив из 24 случайных чисел в интервале от -13 до 13.Все отрицательные...

Дан массив В(k), k=1,2,3,..6. Заменить отрицательные числа их удвоенным значением.
Дан массив В(k), k=1,2,3,..6. Заменить отрицательные числа их удвоенным значением. B(k)=4,2;-7,8;5,3;-8,3;12,4;6,7.

Нужно найти элемент с минимальным значением и заменить его значением все отрицательные элементы массива
Написать алгоритм решения следующей задачи Задан масив K. Нужно найти элемент с минимальным значением и заменить его значением все...

N=8 Все отрицательные элементы массива заменить его абсолютным значением
N=8 Все отрицательные элементы массива заменить его абсолютным значением

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

Наверх