Вопрос по информатике:
1)Требуется создать двумерный массив целых чисел размером MxN, где MиNвводятся пользователем, но не превышают 15. Заполнить массив числами равными сумме индексов элемента (например элемент[3,4] := 7 ).Полученные значения заносить во множество. Вывести образованный массив и все элементы сформированного множества.
- 21.03.2017 21:21
- Информатика
- remove_red_eye 13942
- thumb_up 102
Ответы и объяснения 1
Насколько я понял, множество - это просто все эти числа, только без повторений.
Заведем массив 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.
- 22.03.2017 22:35
- thumb_up 54
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.