Как проверить, есть ли среди 10 чисел повторяющиеся?

← →
shane54 © (2002-05-14 17:38) [0]

Не поймите неправильно - перегрелся... 20 часов непрерывного кодинга - курсач горит...

← →
Alx2 © (2002-05-14 17:41) [1]

"в лоб" так как чисел мало :)
for k := 1 to 9 do
for l := k+1 to 10 do
if Values[k]=Values[l] then есть повтор

← →
Дремучий © (2002-05-14 18:32) [2]

если массив очеень большой -
сравнивай а1 и а2
их разница = количеству повторов

SELECT count(DISTINCT(CHISLA)) a1
FROM "myarray.db"

SELECT count(CHISLA) a2
FROM "myarray.db"

;)

← →
Malder © (2002-05-14 19:46) [3]

Дремучий, хех. А зачем ты сюда базы данных приписл ? Не создавать же базу для данной цели =)

2 Malder
очеень большой массив заводиться в комп не один день -
посему либо комп не выключать, либа в у файлик бросать, ну там, текстовый, типизированный а лучшее всего в локальную базу.

;)

Дремучий, логично =)

Как проверить, есть ли среди 10 чисел повторяющиеся? Найти похожие ветки