Файл Алыкул.doc хранится на жестком диске в каталоге ПОЭЗИЯ, который является подкаталогом каталога ЛИТЕРАТУРА. В таблице приведены фрагменты полного имени файла
244
287
Ответы на вопрос:
насколько я понял, множество - это просто все эти числа, только без повторений.
заведем массив 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.
Популярно: Информатика
-
1337222508.03.2022 23:02
-
belovaan80p073pt18.09.2022 14:50
-
aminapilipenko21.11.2022 18:49
-
znmbuzinis10.06.2022 05:36
-
mousi199915.02.2022 05:04
-
klubnika198509.01.2023 04:58
-
kiss123kiss15.01.2022 09:03
-
carevruslan31.05.2023 03:57
-
Поля20060128.03.2021 01:07
-
BloodyMary00121.11.2022 16:23