дана последовательность из 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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.