IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задача на подсчитывание N эелементов
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


Дана последовательность из "n" элементов. Подсчитать сколько в данной последовательности элементов которые меньше своего соседа слева и справа.
Если сможете, напишите пожалуйста задачу хотя бы от begin до end и на уровне 9 класса


--------------------
Человек придумавший колесо был дураком, а человек придумавший остальные три был ГЕНИЕМ!:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






begin
count := 0;
for i := 2 to n - 1 do begin
if (a[i - 1] > a[i]) and (a[i+1] > a[i]) then inc(count);
end;
writeln('count = ', count);
end.


Ты думаешь, теперь достаточно написать
Цитата
напишите пожалуйста задачу хотя бы от begin до end и на уровне 9 класса
, и получишь готовое решение?

"Меня терзают смутные сомнения..." (С)

Не будешь САМ ничего пытаться делать - результат будет иным...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 26
Пол: Мужской
Реальное имя: Денис

Репутация: -  0  +


Я пытался понять паскаль, но не получилось, поэтому остается надеяться что кто-то решит за меня задачу, ты извини если что не так, но это у меня единственный выбор..Я совершенно не понимаю паскаль.


--------------------
Человек придумавший колесо был дураком, а человек придумавший остальные три был ГЕНИЕМ!:)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 4:49
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name