Дана последовательность из N (2<=N<=100000) различных чисел.

Выписать в возрастающем порядке все целые числа находящиеся в интервале от минимального до максимального значения элементов этой последовательности, которые не находятся в данной последовательности.

Question

Информатика

Фёдор

19 марта, 12:44

Дана последовательность из N (2<=N<=100000) различных чисел.

Выписать в возрастающем порядке все целые числа находящиеся в интервале от минимального до максимального значения элементов этой последовательности, которые не находятся в данной последовательности.

+3

Ответы (1)

Знаете ответ на вопрос?

Феодора · Answer 1

Var

i, i_beg, i_end, k:longint;

p:set of longint;

begin

Writeln ('Вводите целые числа большие двух, конец ввода по числу 0') ;

i_beg:=1000000; i_end:=0;

repeat

Read (k) ;

if k0 then

begin

if i_beg>k then i_beg:=k

else if i_end
Include (p, k)

end

until k=0;

Writeln ('Числа, не входящие в последовательность:') ;

for i:=i_beg to i_end do

if not (i in p) then Write (i,' ')

end.

Тестовое решение:

Вводите целые числа большие двух, конец ввода по числу 0

6 12 9 14 10 19 17 11 7 0

Числа, не входящие в последовательность:

8 13 15 16 18