 Вопрос по условию, непонятная задача... |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| kr3v3tkus |
 15.12.2005 15:23
Сообщение
#1
|
 Пионер  Группа: Пользователи Сообщений: 111 Пол: Мужской Реальное имя: Рома Репутация:  0   |
Написать программу, которая в заданном массиве из n элементов (элементами являются целые числа, 0 < n < 100) находит:
Сумму первых положительных элементов; Вот такая штука написана в условии  я не могу понять чего исколько брать мне кажется , что если например есть массив -11 20 43 -54 11 то надо найти чтоли сумму первых встречающихся положительных чисел?! Если так , то помогите плз , как сделать так, чтобы при нахождении первого положительного числа , проверялось сколько потом идёт положительных. Просто у меня загвоздка в 2х местах: 1) как сделать чтобы при проверке и нахождении 1ого положительного эл-та останавливался поиск(без брейка) 2) нет конкретного значения сколько у нас полож. чисел есть, я не знаю как ето определить. если 1ый пункт я ещё как нибудь бы через даунту сделал, то 2ой я вообще не знаю ((( Натолкните -------------------- Цитата . . \__/ (**) (>:=:=:~~ ^ ^ ^ ^ Креветка присваивания :DDD |
   |
 
|
  |
Ответов
| klem4 |
15.12.2005 15:28
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Сумму первых положительных элементов очень мутно ... можно найти сумму первых K положительныйх элементов нарпимер ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
kr3v3tkus Вопрос по условию 15.12.2005 15:23
APAL Тафталогия получается!
По условию "(элеме... 15.12.2005 15:28 APAL может что нибудь вроде этого...
Flag:=True;
Sum:=... 15.12.2005 15:35 kr3v3tkus 2 APAL
вово я тоже сначала так подумал, но 1е зада... 15.12.2005 15:42 APAL
Каюсь, не проверял, но по алгоритму должен найти... 15.12.2005 15:53 kr3v3tkus вернее я точно не разобрался :) я вот щас посмотре... 15.12.2005 15:56
APAL
вернее я точно не разобрался :) я вот щас посмотр... 15.12.2005 16:00 volvo kr3v3tkus, если тебе надо найти, то вот так, навер... 15.12.2005 16:05 APAL можно и так...
на выбор... :blum: 15.12.2005 16:12 kr3v3tkus ууу :D всем БИГ СПС :D
вот прикол будет если я пр... 15.12.2005 16:23 kr3v3tkus понимаю,задрал уже :blink: но ничё не могу подела... 15.12.2005 22:51 volvo Элементарно:
i := n; s := 0;
while a[i] < 0... 15.12.2005 22:58 kr3v3tkus :blink: у меня while заколдован :) как только за ... 15.12.2005 23:18 GoodWind
то же что и у тебя... работать должно :unsure: 15.12.2005 23:26 volvo Ты ошибся...
s := a[1]; { <--- Здесь !... 15.12.2005 23:29 GoodWind volvo.... каюсь ибо грешен... :( 15.12.2005 23:53 kr3v3tkus я подозревал что это связано с присвоением :D
как... 16.12.2005 0:07 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 14:14 |