Delphi:Определить имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.

[Skvot]

1.Определить имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.
2.Разделить массив D(18) на 2 части,поместив в первую элементы больше среднего арифметического их суммы,а во вторую меньше.(MEMO).
Ребят решите пожалуйста.Заранее спасибо!

[VadEr]

Задача №2:

пара взаимно противоположных чисел

- это, например 2 и -2, что-ли?

[Stilet]

взаимно противоположных чисел.

Проверь каждую пару на условие ABS(число1-число2)=0. Если условие выполняется то есть.

[maladoy]

ABS(число1-число2)=0

то есть числа 2 и 2 взаимно противоположны. число взаимно противоположно самому себе?

[Stilet]

не стоп. не так написал:

(ABS(число1)-число2)=0

Ну или просто по знакам проверять.

[maladoy]

(ABS(число1)-число2)=0

получается тоже самое ведь abs(2)=2 2-2=0!! так что по знакам проверять само то! т.е

if (a*b<0) and (abs(a)-Abs(b)=0) then begin.........

[Stilet]

maladoy

Вот не помню, но где-то видел такой способ через ABS...
И оттуда же вспомнилось чет типа:

 if Num1/Num2=-1 then // Числа симметричны