Cобственно задача, думаю легкая, за бабло =) Опции

[sberkut]

требуется написать задачу для девушке одной =) от вас требуется требуемое кол-во ден знаков и время и собственно решение =)

Задача:
составить программу на языке pascal решения следующей задачи:
ввести последовательность вещественных чисел (не более 30)
определить,сколько в исходной последовательности попарно равных чисел
вывести на экран исходные данные и результаты вычислений.

[klem4]

вот тебе оди из бесплатных способов :

count:=0;
   for i:=1 to n-1 do
    for j:=i+1 to n do
     if x[i]=x[j] then
      inc(count);

:D