Заменить все положительные элементы массива на минимальный по модулю элемент

@Vlad220994 · Регистрация: 18.05.2011

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

В таблице Excel внесите в ячейки А1:А10 10 любых чисел. Напишите макрос, который выводит в столбце В массив в котором все положительные элементы заменены на минимальный по модулю элемент.

@Казанский · 30.10.2011, 00:26

Visual Basic

1	[b1:b10]=[IF(A1:A10>0,MIN(ABS(A1:A10)),A1:A10)]

@all_angarsk · 31.10.2011, 05:35

Не получается при отрицательных, а только положительные строка работает.См. рисунку. Что не так сделал?

@Казанский · 31.10.2011, 09:23

Я так понял, что все положительные надо заменить, а отрицательные оставить как есть.
Если и положительные заменять, результат тривиальный получится, как на второй картинке.

@Vlad220994 1 / 1 / 1 Регистрация: 18.05.2011 Сообщений: 73
		1
	Заменить все положительные элементы массива на минимальный по модулю элемент 30.10.2011, 00:08. Показов 1747. Ответов 3 Метки нет (Все метки) В таблице Excel внесите в ячейки А1:А10 10 любых чисел. Напишите макрос, который выводит в столбце В массив в котором все положительные элементы заменены на минимальный по модулю элемент. 0

@all_angarsk 761 / 268 / 57 Регистрация: 13.12.2009 Сообщений: 1,101
	31.10.2011, 05:35	3
	Не получается при отрицательных, а только положительные строка работает.См. рисунку. Что не так сделал? Миниатюры 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	31.10.2011, 09:23	4
	Я так понял, что все положительные надо заменить, а отрицательные оставить как есть. Если и положительные заменять, результат тривиальный получится, как на второй картинке. 0