Помогите решить задачу по информатике

[lenuscik]

Дан массив чисел $Y=(y1,y2,...,yn)$. Найти сумму отрицательных элементов массива.

заранее спасибо))

[LeXa]

А чего тут собственно решать! На любом языке программирования пропиши код, отвечающий следующей схеме:
заведи переменную, к примеру, С, которая будет копить сумму отрицательных членов. Приравняй ее к нулю (С=0). Далее:
используй циклический оператор For (от i=1 до i=n ) Do (используй условный оператор If (если yi меньше нуля, пусть C=C+yi)) . Последний штрих - выведи на экран (или пропиши в какой-нибудь файл - как просят, короче) сумму С. Все!

[Leox]

а в чем проблема?? зануляете переменную , записываете цикл от 1 до $n,$ внутри вставляете проверку на отрицательность, если true то увеличиваете переменную на $y_i.$

[Фантом]

lenuscik в сообщении #408556 писал(а):

Найти сумму отрицательных элементов массива.

На каком языке-то? А то ведь даже вышеизложенные общие рекомендации не всегда подходят.

P.S.

sum(Y,mask=Y<0)

- искомое. Правда, на Фортране.

[arseniiv]

(* Wolfram Mathematica 5 *)
(* Method I *)
Select[Y, # < 0 &] // Length
(* Method II *)
Count[Y, _?Negative]
(* ... *)
(* Method C *)
Plus @@ Function[j, If[! j >= 0, 1, 0]] /@ Y

Хи-хи.

[lenuscik]

на языке basic вроде должно быть....

[arseniiv]

А чем мой вариант не нравится?

[PAV]

Перемещено из математического раздела в CS

[lenuscik]

arseniiv ваш вариант оч даже нравится)) большое спасибо) я просто отвечала на вопрос))

[Toucan]

Stieveee в сообщении #528311 писал(а):

Помогите решить в ФОРТРАН.
...

Сообщение выделено в отдельную тему и перемещено в Карантин.

[arseniiv]

Дико извиняюсь, я опрочитался. Мои выражения находят количество отрицательных элементов, а не их сумму.