![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
18192123 |
![]()
Сообщение
#1
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 920 Пол: Женский Реальное имя: Марина Репутация: ![]() ![]() ![]() |
дана последовательность из n целых чисел. найти сумму положительных элементов, расположенных после второго отрицательного. (с использованием цикла, не использовать массивы)
Сообщение отредактировано: 18192123 - 26.10.2006 19:21 |
![]() ![]() |
klem4 |
![]()
Сообщение
#2
|
![]() Perl. Just code it! ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: ![]() ![]() ![]() |
Как задана последовательность ? Массив ? Список ? Стек ?
Что уже готово ? Что не получается ? Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
18192123 |
![]()
Сообщение
#3
|
![]() Профи ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 920 Пол: Женский Реальное имя: Марина Репутация: ![]() ![]() ![]() |
Как задана последовательность ? Массив ? Список ? Стек ? Что уже готово ? Что не получается ? Дурацкая привычка приходить, оставлять сухое задание (причем не полностью) и жадть пока тебе его кто-то решит, ты пойми, тебе здесь никто ничего недолжен, здесь не обитель добрых дел, а форум программистов. 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 17:55 |
![]() ![]() |
![]() |
Текстовая версия | 27.07.2025 5:32 |