Работа 3.6 Упр.13 ГДЗ Семакин 10 класс (Информатика)

Задача

Дана последовательность целых чисел $$a_1, a_2, \ldots, a_n$$. Указать пары чисел $$a_i, a_j$$, такие что $$a_i+a_j=m$$, где $$m$$ — заданное целое число.

Подробный ответ

Составим программу, которая:

вводит размер последовательности $$n$$ и число $$m$$;
заполняет массив целых чисел;
перебирает все пары элементов $$a_i$$ и $$a_j$$;
выводит те пары, для которых $$a_i + a_j = m$$ и $$i \ne j$$;
если таких пар нет, сообщает об этом.

В исходном решении массив заполняется случайными числами, поэтому программа сразу выводит элементы массива и затем ищет подходящие пары.

var A: array[1..100] of integer;
i, j, n, m, k: integer;
begin
  write(‘Введите размерность: ‘);
  readln(n);
  write(‘Введите число m: ‘);
  readln(m);
  k := 0;
  for i := 1 to n do
  begin
    A[i] := random(100);
    write(A[i]:3);
  end;
  writeln;
  for i := 1 to n do
  for j := 1 to n do
    if (A[i] + A[j] = m) and (i <> j) then
    begin
      writeln(A[i], ‘+’, A[j], ‘=’, m);
      inc(k);
    end;
  if k = 0 then writeln(‘Таких пар нету’);
end.