Программа работает не правильно

[artem611]

Надо,что бы ф-ция перемножала всевозможный набор из введенных чисел. Т.е. вводится, например 4 числа:10 9 8 7 Считаем:
(10-9)(10-8)(10-7)(9-10)(9-8)(9-7)(8-10)(8-9)(8-7)(7-10)(7-9)(7-8)
Я написал, ф-ию, которая эо делае, но что-то не могу найти там ошибку, хоя прога компилится нормально:

function f(S:integer):real;
begin
k:=1;
for i:=0 to S do
 for j:=0 to S do

if (i<>j) then
begin
if (j=S) then 
     begin
    sum:=(Ar[i]-Ar[j]);
    sum1:=k*sum;
    end 
 else
begin
sum:=(Ar[i]-Ar[j]);
           if (i<>(j+1)) then
                       begin
                       sum1:=sum*(Ar[i]-Ar[j+1])*k;
                       j:=j+1;
                       end
                                              else
                                                  begin
                                                  sum1:=sum*(Ar[i]-Ar[j+2])*k;
                                                 j:=j+2;
                                                  end;
k:=sum1;
end;
end;
f:=sum1;
end;

[Serge_Bliznykov]

а зачем там замудрённо то? и ещё, сильно удивило, для чего Вы S передаёте в функцию? А собственно величины берёте из глобальных переменных (массив AR я имею в виду)...

попробуйте так (функция приведена ПОЛНОСТЬЮ) но код я не проверял..:

  k:=1;
  for i:=0 to S do
     for j:=0 to S do 
         if (i<>j) then begin
           k := k * (Ar[i]-Ar[j]);

           {для наглядности выведем то, что мы умножаем, на экран}
           Write('(',Ar[i],' - ',Ar[j],')');
        end;
  f := k;
end;

А у Вас массив определён от нуля?
А какое S передаёте? Не забываете минус один от количества делать?

А ещё рекомендую Вам надо рассмотреть вариант, когда в последовательности чисел есть одинаковые...

[artem611]

Спасибо,Сергей. Попробую Ваш код.