ЗАДАЧА

[Nadushka]

Не знаю как решать задачу! ПОМОГИТЕ!!!Дана последовательность неотрицательных чисел, последнее из которых равно нулю; причём других равных нулю чисел в последовательности нет. Вычислить сумму положительных чисел этой последовательности. Заранее благодарю!

[IT-man]

Я знаю! стучи в аську сделаю за вознаграждение

[Utkin]

1. Сканировать в цикле массив, в условие проверяем значение элемента (ну чтобы был равен нулю). Если такой найден, то запоминаем индекс найденного элемента и выходим из цикла.
2. Второй цикл суммирующий все элементы до найденного.
3. Вывод суммы куда-нибудь 9ну там на экран или файл).
Как-то так.

[Nadushka]

Сообщение от IT-man

Я знаю! стучи в аську сделаю за вознаграждение

У меня нет аськи. За вознаграждение, я бы открыла газету и позвонила)))

[Nadushka]

Сообщение от Utkin

1. Сканировать в цикле массив, в условие проверяем значение элемента (ну чтобы был равен нулю). Если такой найден, то запоминаем индекс найденного элемента и выходим из цикла.
2. Второй цикл суммирующий все элементы до найденного.
3. Вывод суммы куда-нибудь 9ну там на экран или файл).
Как-то так.

Серьёзно!? Оказывается всё так просто............ ДУМАЕШЬ Я ЧТО-НИБУДЬ ПОНЯЛА!!!!!!!!!!!!!!!!!

[Serge_Bliznykov]

Nadushka, Вы же дублируете темы!
Вам эту задачу уже решили!

[Nadushka]

[QUOTE=Serge_Bliznykov;436560]Nadushka, Вы же дублируете темы!
Вам эту задачу уже решили![/QUOT
Где?

[Utkin]

Сообщение от Nadushka

Серьёзно!? Оказывается всё так просто............ ДУМАЕШЬ Я ЧТО-НИБУДЬ ПОНЯЛА!!!!!!!!!!!!!!!!!

Ну, Вы спросили как решать задачу (или как решить), я написал. Если этот рецепт не помогает, то можно начать отсюда http://ru.wikibooks.org/wiki/Программирование

ЗЫ. Если Вы рассчитывали на получение исходников без своих наработок, то здесь это не весгда прокатывает .

[Serge_Bliznykov]

вот что меня всегда неприятно поражало на programmersforum.ru - так это бесследное пропадание тем. Вчера была эта тема, там было решение, на это решение было замечание LeBron, я ответил на это замечание... всё вроде бы было пристойно. и раз, тема исчезла. Кто-то решил, что эта тема засоряет форум и её надо не просто закрыть, её удалить надо...

Nadushka,
условие задачи крайне примитивно. Т.к. последовательность неотрицательных чисел, значит присутствуют только ПОЛОЖИТЕЛЬНЫЕ числа,
таким образом надо просуммировать все элементы последовательности до нулевого значения:

var  s, a : integer;
begin
   s := 0; {обнулим сумму}
   WriteLn('введите один очередной элемент неотрицательной последовательности (ноль - окончание ввода):');
   repeat
      readln(a);
      if a<0 then WriteLn('Ошибка ввода! В последовательности только НЕОТРИЦАТЕЛЬНЫЕ числа!')
      else s := s + a;
   until a = 0;
   Writeln('Сумма положительные чисел равна ',s);
end.

[Nadushka]

Сообщение от Serge_Bliznykov

вот что меня всегда неприятно поражало на programmersforum.ru - так это бесследное пропадание тем. Вчера была эта тема, там было решение, на это решение было замечание LeBron, я ответил на это замечание... всё вроде бы было пристойно. и раз, тема исчезла. Кто-то решил, что эта тема засоряет форум и её надо не просто закрыть, её удалить надо...

Nadushka,
условие задачи крайне примитивно. Т.к. последовательность неотрицательных чисел, значит присутствуют только ПОЛОЖИТЕЛЬНЫЕ числа,
таким образом надо просуммировать все элементы последовательности до нулевого значения:

var  s, a : integer;
begin
   s := 0; {обнулим сумму}
   WriteLn('введите один очередной элемент неотрицательной последовательности (ноль - окончание ввода):');
   repeat
      readln(a);
      if a<0 then WriteLn('Ошибка ввода! В последовательности только НЕОТРИЦАТЕЛЬНЫЕ числа!')
      else s := s + a;
   until a = 0;
   Writeln('Сумма положительные чисел равна ',s);
end.

Насчёт примитивности - я информатику не люблю и не знаю! СОВСЕМ! Я пробовала решить эту задачу, сдала контрольную, но мне её вернули! Теперь с вашей помощью пойду сегодня сдавать Надеюсь, что больше не вернут.