Программа на Delphi - Помощь студентам

Koksa · 25.01.2011, 17:44

Ввести n чисел. Содержит ли последовательность хотя бы одну пару равных соседних элементов.

Mad_Cat · 25.01.2011, 17:49

Код:

f:=false;
for i:=1 to n-1 do
if a[i]=a[i+1] then begin f:=true;break;end;
if f then showmessage('Да')
else showmessage('Нет');

Koksa · 25.01.2011, 19:35

Спасибо! работает! и даже правильно)))

25.01.2011, 17:44	#1
Koksa Пользователь Регистрация: 24.01.2011 Сообщений: 15	Программа на Delphi Ввести n чисел. Содержит ли последовательность хотя бы одну пару равных соседних элементов.

25.01.2011, 17:49	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `f:=false; for i:=1 to n-1 do if a[i]=a[i+1] then begin f:=true;break;end; if f then showmessage('Да') else showmessage('Нет');` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа в Delphi	Kovax	Фриланс	6	23.12.2010 17:06
delphi программа	vbchristy46	Помощь студентам	3	02.07.2010 18:50
программа в Delphi	Селякова Елена	Помощь студентам	0	22.04.2009 19:03
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi	Верчик	Помощь студентам	9	02.03.2009 17:46
программа из C++ в Delphi	andriano1984	Помощь студентам	1	23.12.2008 09:22

25.01.2011, 19:35	#3
Koksa Пользователь Регистрация: 24.01.2011 Сообщений: 15	Спасибо! работает! и даже правильно)))