поиск суммы положительных элементов после 2-го отрицательного Опции

[18192123]

дана последовательность из n целых чисел. найти сумму положительных элементов, расположенных после второго отрицательного. (с использованием цикла, не использовать массивы)

Сообщение отредактировано: 18192123 - 26.10.2006 23:21

[klem4]

Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.

[18192123]

Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.

что мне выдали,то я и предлагаю. И причем условие приведено полностью!!!!!!!!!!!!!!!!!!!!!!!!!!

[мисс_граффити]

мы счастливы.
а ты все задачи, что тебе дают, будешь сюда выкладывать, не попытавшись решить?
а комментарии вроде "помогите пожалуйста" не используешь, чтобы экономить наш траффик?

в общем, это.... не любят здесь наглости и хамства. воспитывать тебя никто не будет, но и помогут вряд ли.

[18192123]

мы счастливы.
а ты все задачи, что тебе дают, будешь сюда выкладывать, не попытавшись решить?
а комментарии вроде "помогите пожалуйста" не используешь, чтобы экономить наш траффик?

в общем, это.... не любят здесь наглости и хамства. воспитывать тебя никто не будет, но и помогут вряд ли.

можете не волноваться, не все!

[18192123]

Как задана последовательность ? Массив ? Список ? Стек ?

Что уже готово ? Что не получается ?

Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов.

var n,x,y,s:integer;
begin
clrscr;
x:=0; { счетчик отриц. чисел}
y:=0; {счетчик полож. чисел }
s:=0;
begin
clrscr;
writeln ('vvedite n=');
repeat
readln (n);
if (n<0)and(x<=2) then x:=x+1;
if (n>0)and(x=2) then 
begin
y:=y+1;
s:=s+n;
end;
until n=0
writeln ('s=',s);
readkey;
end.

теперь проблема решена!

Сообщение отредактировано: volvo - 3.11.2006 21:55

[мисс_граффити]

s:=s+n;

проблема в том, что считается сумма всех положительных чисел

только положительных?
ты же прибавляешь к s все n...
тебе надо, чтобы это делалось внутри условного оператора. используй begin и end