Задание:
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.
Знаете другой ответ?