сумма выбранных чисел делилась на N Опции

[Tima]

имеется n чисел, написать программу, так чтобы сумма выбранных чисел делилась на n.
например n=6, а выбирать нужно по 2 числа, так чтобы сумма этих двух была равна 6, выдать все возможные комбинации...помогите плз.

[volvo]

Надо проверять остаток от деления...

if ( a[i] MOD n = 0 ) then inc(sum);

Причем ты это делаешь совершенно не там, где нужно... Я бы сделал это прямо в процедуре Use (перед выводом результатов):

Var
  Data: array[1 .. n] of Integer; { <--- Это - твои N чисел }

procedure use;
var i, s: integer;
begin

  s := 0;
  for i:=1 to m do s := s + Data[a[ i ]];
  if s mod n = 0 then 
    for i := 1 to m do write(Data[a[ i ]]:4);

end;