Дано натуральное число N ,и последовательных целых чисел,каждое из которых лежит в диапазоне от 0 до 255.Определить все числа из заданного интервала,которые не входят в последовательность от 0 до 255(Паскаль.Решить с использованием множества и рандома)
More Questions From This User See All
Answers & Comments
Verified answer
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