Список чисел

← →
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
Точно :)

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