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

[sberkut]

девушке это ничо не скажет =) нужно решение под ключ :D

[Ladno]

Если я правильно понял задачу, то этот отрывок программы не поможет

[klem4]

Ladno,кому не поможет ?

эхх а девушке скажешь, что сам решил... :D :D

{$n+}
uses crt;
const n=30;
var
   x:array[1..n] of extended;
   i,j,count:integer;

Begin
   clrscr;
   for i:=1 to n do
    begin
       write('x[',i,']=');
       readln(x[i]);
    end;
   count:=0;
   for i:=1 to n-1 do
    for j:=i+1 to n do
     if x[i]=x[j] then
      inc(count);
   writeln;
   writeln('Odinakovih par - ',count);
   readln;
end.

кстати , с тебя 1000000 $
...шутка)

[sberkut]

klem4
спасибо вам добрый человек =)))

давай я те хоть на пивко отсыплю :D