Дано натуральное число N ,и поочередных целых чисел,каждое из которых лежит

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

Задать свой вопрос
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
Valerij Metasov
спасибо огромное)
Prudyus Svetlana
Пожалуйста.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт