Question

Задание + уточнение на фотографии

Answer 1

===== PascalABC.NET =====

begin

 var m := ReadInteger('Мощность множества X:');

 var x := ReadArrInteger('Введите числовые элементы множества X:', m);

 Readln;

 var y := ReadString('Введите символьные элементы множества Y:')

     .Where(c -> c <> ' ').ToArray;

 Print('X:');

 foreach var a in X do

   Write(a:5);

 Writeln;

 Print('Y:');

 y := y.Shuffle;

 for var i := 0 to x.High do

   Write(y[i]:5)

end.

Answer 2

Тут отображение условно-неоднозначное, при каждом запуске на одних и тех же данных оно меняться может. Поскольку мощность Х меньше Y, из Y случайным образом перемешивается после ввода, а затем из него выбираются элементы по порядку.