Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 14:33   #1
Dr.sexy
Новичок
Джуниор
 
Регистрация: 21.05.2012
Сообщений: 3
По умолчанию задан Массив

Задан Массив А[п]. определить, есть ли пара соседних элементов с суммойб равной заданному числу A.
Dr.sexy вне форума Ответить с цитированием
Старый 21.05.2012, 15:15   #2
Dr.sexy
Новичок
Джуниор
 
Регистрация: 21.05.2012
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Dr.sexy Посмотреть сообщение
Задан Массив А[п]. определить, есть ли пара соседних элементов с суммойб равной заданному числу A.
Нужно Решить срочно !
Dr.sexy вне форума Ответить с цитированием
Старый 21.05.2012, 15:21   #3
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

Если срочно, то это в раздел Фриланс. Там решат все быстро и в лучшем виде за соответствующую оплату.
Arigato вне форума Ответить с цитированием
Старый 21.05.2012, 16:42   #4
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Код:
f:=false;
for i:=1 to n-1 do
if a[i]+a[i+1]=AA then begin f=true;break;end;
writeln(f);
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"

Последний раз редактировалось Mad_Cat; 21.05.2012 в 18:12. Причина: поторопился чуть
Mad_Cat вне форума Ответить с цитированием
Старый 21.05.2012, 17:24   #5
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

Соседних ведь, так что не 1, а i+1.
Arigato вне форума Ответить с цитированием
Старый 21.05.2012, 22:28   #6
Dr.sexy
Новичок
Джуниор
 
Регистрация: 21.05.2012
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
f:=false;
for i:=1 to n-1 do
if a[i]+a[i+1]=AA then begin f=true;break;end;
writeln(f);

Это Подробно сделано ? если я так напишу то Работать будет Решение ?
Dr.sexy вне форума Ответить с цитированием
Старый 21.05.2012, 22:31   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

ну если немного допилите то будет!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 21.05.2012, 22:31   #8
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Это Подробно сделано ?
куда уж подробнее то?
Цитата:
если я так напишу то Работать будет Решение ?
Ага если голову включите и немного допишите)
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С# задан массив 5х5. сформировать массивы А и В. в массив А поместить элементы с четными индексами, в массив В с нечетны Koksa Помощь студентам 0 10.10.2011 11:26
Задан вектор X[20]. Положительные числа переписать в массив Y, а отрицательные в массив W leha_demi Помощь студентам 2 24.09.2011 18:12
C++. Задан массив x[L] olik100 Помощь студентам 3 22.01.2011 14:41
Задан массив x={xi} dimka3210 Паскаль, Turbo Pascal, PascalABC.NET 6 21.12.2010 12:59
Задан массив D... PR0Z0N Помощь студентам 2 18.06.2009 23:06