| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список чисел

Leo^Sun ©   (2002-05-30 06:58:00) 

Подскажите мне, как проверить массив из цифа, например 345312 на писетствие в нем двух одинаковых чисел...

---

Sniffer   (2002-05-30 07:38:00) [1]

>Alx2
Точно :)

---

Alx2   (2002-05-30 07:35:00) [2]

>Sniffer (30.05.02 07:32)
Будет работать, если только одинаковые подряд стоят.
Вот так корректнее:
for k := 1 to N - 1 do
for l := k + 1 to N do
if A[k]=A[l] then есть одинаковые

---

Sniffer   (2002-05-30 07:32:00) [3]

for i := 1 to N - 1 do
if A[i] = A[i + 1] then
Beep
end;

---

Наверх