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

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

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