Дана последовательность целых чисел а1, а2, ... ,аn. Указать пары чисел ai,аj, таких что ai + aj = m, где m - заданное целое число. (программа Паскаль)

Question

Дана последовательность целых чисел а1, а2, ... ,аn. Указать пары чисел ai,аj, таких что ai + aj = m,    где m -    заданное целое число.

Answer 1

var
 mas:array [1..100] of longint;
 m,n,i,j:longint;
begin
 write('Количество элементов ');readln(n);
 writeln('Заполняем массив');
 for i:=1 to n do{прочитали все числа и занесли их в массив}
  readln(mas[i]);
writeln;
 write('m=');readln(m);
 i:=1;
 j:=2;
 while(i<=n) do{будем искать нужные упорядоченные пары(i<j,i не равно j)}
 begin
  j:=i+1;
  while(j<=n) do
  begin
   if((mas[i]+mas[j])=m) then{нашли и вывели на экран}
    writeln(mas[i],' ',mas[j]);
   j:=j+1;
  end;
  i:=i+1;
 end;
end.