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

1

Ответы и объяснения

2013-04-16T18:32:37+04:00

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

Заведем  массив 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.