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