|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.10.2008, 17:06 | #1 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Маленькая программка
Зада4а:
Дано натуральне число n, цілі числа а1,..,аn Одержати суму позитивних і число негативних членів послідовності а1,..,аn. Если не трудно уделите мне внимание пожалуйста в решении программы=) |
10.10.2008, 17:57 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
sum_pos:=0;k_neg:=0;
for i:=1 to n do if a[i]>0 then sum_pos:=sum_pos+a[i] else if a[i]<0 then k_neg:=k_neg+1; |
10.10.2008, 18:07 | #3 |
я получил эту роль
Старожил
Регистрация: 25.05.2007
Сообщений: 3,694
|
Такое? (опс, опоздал )
Код:
пыщь
|
10.10.2008, 23:21 | #4 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Вроде ПашеТ нормально, спасибо за уделенное время!
Еще 1 зада4ка: Дано натуральне число n, символи S1...Sn. Одержати ті символи, що належать послідовності S1...Sn, що входять у цю послідовність по одного разу. |
10.10.2008, 23:44 | #5 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Ну если я правильно перевел на свой родно, надо из последовательности выделить символы входящие в нее по 1 разу.
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
10.10.2008, 23:47 | #6 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
|
|
11.10.2008, 00:10 | #7 | |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Цитата:
|
|
11.10.2008, 00:15 | #8 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
А что за ошибочка?
Значение константы задается сразу: Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
11.10.2008, 00:16 | #9 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
|
|
11.10.2008, 00:25 | #10 |
Заблокирован
Регистрация: 09.10.2008
Сообщений: 17
|
Например N=10
выдает ошибку в этой строке If A[i] = X Then Inc(F); Ошибка (Incompatible types)! |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна Программка | maikoms | Софт | 1 | 16.09.2008 23:16 |
Еще одна маленькая задачка в Excel | Vinni_puh | Microsoft Office Excel | 1 | 18.02.2008 01:49 |
Не маленькая недороботка | Sibedir | О форуме и сайтах клуба | 2 | 10.12.2007 13:27 |
Маленькая недоработка... | Карась | О форуме и сайтах клуба | 2 | 09.12.2007 18:34 |
Нужна программка | Венера | Фриланс | 11 | 06.10.2007 16:23 |