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

Question

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

Comments

а как интервал задается?

---

всмысле

---

плиз

---

у тебя только про число n написано интервал двумя числами задается

---

да

---

Сюда могу кинуть

---

спасибо

Answer 1

Var MyAr:array[1..100]of byte;
MN1: Set of byte;
j, i, N: integer;
begin
Write('N= ');
read(N);
for i := 1 to N do
MyAr[i] := random(256);
write('Массив А=');
for i := 1 to N do
write(MyAr[i], ' ');
MN1 := [];
for i := 1 to N do
MN1 := MN1 + [MyAr[i]];
j := 0;
begin
for i := 0 to 255 do 
if i in MN1 then
j := j + 1;
write(j);
end;
end.

Comments

Вот