Question

Дано натуральное число N ,и последовательных целых чисел,каждое из которых лежит в диапазоне от 0 до 255.Определить все числа из заданного интервала,которые не входят в последовательность от 0 до 255(Паскаль.Решить с использованием множества и рандома)

Answer 1

Var a,n,i:byte;
mn:set of byte;
begin
readln(n);
mn:=[];
writeln('Числа последовательности:');
for i:=1 to n do
 begin
 a:=random(256);
 write(a,' ');
 mn:=mn+[a];
 end;
writeln;
writeln('Числа, которые не входят в последовательность:');
for i:=0 to 255 do
 if not (i in mn) then write(i,' ');
writeln;
end.

Пример (для диапазона от 0 до 25):
Числа последовательности:
6 23 17 12 17 4 22 25 3 8
Числа, которые не входят в последовательность:
0 1 2 5 7 9 10 11 13 14 15 16 18 19 20 21 24