Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?

Posted by obzor under Delphi

Задан массив, который содержит 10 чисел. Можно ли среди них найти две разных пары чисел, сумы которых одинаковы? Если можно, то вывести эти числа и их индексы. Вычисление сумы оформить как процедуру или функцию.

Serge_Bliznykov

я бы попробовал так, «в лоб», тупой и жёсткий перебор.
для малых n должно работать достаточно быстро.

const n=10;
....
function found(var i,j,k,m:integer): boolean;
var sum:integer;
begin
  found := true;
  for i:=1 to n-1 do
    for j:=i+1 to n do 
       begin
         sum := a[ i]+a[j];
         for k:=1 to n-1 do 
           for m:=k+1 to n do
              if (k<>i) and (k<>j) and 
                     (m<>i) and (m<>j) and ((a[k]+a[m])=sum) then Exit;
      end;
   found := false
end;

писал тут, не проверял!
просто идея, как перебирать.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)
• Необходимо расположить эти числа в порядке возрастания сумм их цифр