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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 13. Дана последовательность целых чисел а1, а2, … ,аn. Указать пары чисел ai,аj, таких что ai + aj = m, где m — заданное целое число. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-6/13 98

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

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

вводит размер последовательности $$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.