Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули.

13.05.2011, 14:07. **Показов** 1273. **Ответов** 1

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

нужна помощь, не понимаю как сделать

Дан массив F1,...,F20.Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули.

Вот..

@softmob · 13.05.2011, 22:18

PureBasic

CLS
n = 20
DIM f(n)
FOR i = 1 TO n
    INPUT "input data"; f(i)
NEXT
FOR i = 1 TO n
    PRINT f(i);
NEXT
PRINT
FOR i = 1 TO n
    IF f(i) > 0 THEN s1 = s1 + f(i) ELSE s2 = s2 + ABS(f(i))
NEXT
IF s1 > s2 THEN f = 1: PRINT "s+>s-" ELSE PRINT "s+<=s-"
IF f = 1 THEN
    FOR i = 1 TO n
        IF f(i) > 0 THEN f(i) = 0
    NEXT
END IF
FOR i = 1 TO n
    PRINT f(i);
NEXT

HappyRabbit
		1
	Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули. 13.05.2011, 14:07. Показов 1273. Ответов 1 Метки нет (Все метки) нужна помощь, не понимаю как сделать Дан массив F1,...,F20.Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули. Вот..

Опции темы

Если модуль суммы положительных элементов больше модуля суммы отрицательных элементов, то заменить все положитьные элементы на нули.

Решение