Найти сумму элементов массива, предшествующих первому отрицательному элементу

@Yanusik · Регистрация: 23.04.2011

Приветик ребят!!!))
Нужна ваша помощь.Не мего решить задачку на QBASIC, она реально неберущаяся для женских мозгов((
Хотя можит я ошибаюсь...Подруга посоветовала здесь спросить, сказала, что ребята помогут.
Я очень на вас надеюсь....
QBasic-зло!!!!!

Дан массив Х(324). Найти сумму элементов массива, предшествующих
первому отрицательному элементу. Если среди элементов массива нет
отрицательных, то просуммировать все элементы.

@кот Бегемот · 24.04.2011, 16:22

x(324)- это круто! А проверять как?
На тебе прогу для общего случая (любое n)

PureBasic

INPUT n
DIM x(n + 1)
FOR i = 1 TO n
INPUT x(i)
NEXT
FOR i = 1 TO n
PRINT x(i);
NEXT
PRINT
i = 1
DO WHILE x(i) >= 0 AND i <= n
s = s + x(i)
i = i + 1
LOOP
PRINT s

@Yanusik · 25.04.2011, 00:30 **[ТС]**

Спасибо тебе котик)=*

@Yanusik 3 / 3 / 0 Регистрация: 23.04.2011 Сообщений: 37
		1
	Найти сумму элементов массива, предшествующих первому отрицательному элементу 24.04.2011, 13:21. Просмотров 981. Ответов 2 Метки нет (Все метки) Приветик ребят!!!)) Нужна ваша помощь.Не мего решить задачку на QBASIC, она реально неберущаяся для женских мозгов(( Хотя можит я ошибаюсь...Подруга посоветовала здесь спросить, сказала, что ребята помогут. Я очень на вас надеюсь.... QBasic-зло!!!!! Дан массив Х(324). Найти сумму элементов массива, предшествующих первому отрицательному элементу. Если среди элементов массива нет отрицательных, то просуммировать все элементы. 0

@Yanusik 3 / 3 / 0 Регистрация: 23.04.2011 Сообщений: 37
	25.04.2011, 00:30 [ТС]	3
	Спасибо тебе котик)=* 0

Опции темы

Найти сумму элементов массива, предшествующих первому отрицательному элементу

Решение