Question

1)Требуется создать двумерный массив целых чисел размером MxN, где MиNвводятся пользователем, но не превышают 15. Заполнить масс

1)Требуется создать двумерный массив целых чисел размером MxN, где MиNвводятся пользователем, но не превышают 15. Заполнить массив числами равными сумме индексов элемента (например элемент[3,4] := 7 ).Полученные значения заносить во множество. Вывести образованный массив и все элементы сформированного множества.

Answer 1

Насколько я понял, множество - это просто все эти числа, только без повторений.

Заведем  массив boolen, где будем отмечать, есть ли данное число во множестве.

var

  a : array [1..15, 1..15] of integer;

  b : array [1..30] of boolean;

  i, j, n, m : integer;

begin

  read (n, m);

  for i := 1 to 30 do b[i] := false; //Зануление начальных значений

  for i := 1 to n do

    for j := 1 to m do

      a[i, j] := i +j; //Заполнение массива

  for i := 1 to n do

    for j := 1 to m do

      b[a[i, j]] := true; //Формирование множества

  for i := 1 to n do

  begin

    for j := 1 to m do

      write (a[i, j], '  ');

    writeln;

  end;

  for i := 2 to 30 do

    if b[i] then write (i, '  ');

end.