2 (1,2,3,5,6,8,9,10) (ПЫШКА)
4 (1,2,3,5,7,8,9,10) (ПУШКА)
9 (1,2,3,4,9,10) (ПАЛКА)
7 (1,2) (П)
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(10,-99,99); a.Println
end.
<u><em>Тестовое решение</em></u>
-12 -89 55 66 41 -31 17 -25 -34 -71
Насколько я понял, множество - это просто все эти числа, только без повторений.
Заведем массив 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.