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.