Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ поиск суммы положительных элементов после 2-го отрицательного

Автор: 18192123 26.10.2006 22:53

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

Автор: klem4 26.10.2006 23:08

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

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

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

Автор: 18192123 26.10.2006 23:22

Цитата(klem4 @ 26.10.2006 20:08) *

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

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

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

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

Автор: мисс_граффити 26.10.2006 23:37

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

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

Автор: 18192123 26.10.2006 23:50

Цитата(мисс_граффити @ 26.10.2006 20:37) *

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

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

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


Автор: 18192123 28.10.2006 0:47

Цитата(klem4 @ 26.10.2006 20:08) *

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

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

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


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.


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

Автор: мисс_граффити 28.10.2006 2:05

Цитата(18192123 @ 27.10.2006 21:47)
s:=s+n;
проблема в том, что считается сумма всех положительных чисел

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