Важно! теперь егор просит вас создать функцию сортировать образом вложенные списки, содержащие целые числа. сортировка должна производиться следующим образом: сначала все элементы всех строк списка сортируются с заданного ключа. затем строки переставляются таким образом, чтобы последние элементы были отсортированы с заданного ключа в обратном порядке. параметр data содержит вложенный список, который требуется обработать. параметр key задает функцию, определяющую правило сортировки. задайте значение по умолчанию так, чтобы сортировка производилась по убыванию. функция должна возвращать новый список. формат ввода функция не должна ничего считывать. формат вывода функция не должна ничего выводить. пример 1 ввод вывод data = [[1], [2, 3], [4, 5, 6]] res = [[1], [3, 2], [6, 5, 4]] пример 2 ввод вывод data = [[1], [3, 2], [6, 5, 4]] key = lambda x: x res = [[4, 5, 6], [2, 3], [1]] примечания в примерах: data — передаваемый функции список; key — передаваемая функции функция; res — получаемый от функции результат.
a: set of 0..9;
b: set of 0..9 =[0,1,2,3,4,5,6,7,8,9];
c: array[1..200] of integer;
begin
write(' N = ');
readln(n);
Randomize;
for i:=1 to n do
begin
c[i]:=Random(255);
write(c[i],' ');
end;
writeln;
a:=[];
for i:=1 to n do
begin
m:=c[i];
while (m>0) do
begin
a:=a+[(m mod 10)];
m:=m div 10;
end;
end;
b:=b-a;
if b<>[] then
begin
write('в записи чисел массива не содержатся цифры : ');
foreach i in b do write(i,' ');
end
else
writeln('встречаются все цифры');
end.