Скачать: CL | DM;

Список чисел   Найти похожие ветки 

← →
Leo^Sun ©   (2002-05-30 06:58) [0]

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

---

← →
Sniffer   (2002-05-30 07:32) [1]

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

---

← →
Alx2 ©   (2002-05-30 07:35) [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:38) [3]

>Alx2
Точно :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c