Ответ:

program z;

var a: array [1..100] of integer;

i,N,C,D: integer;

begin

write('Введите количество элементов в массиве (N<=100): ');

readln(N);

write('Массив: ');

for i:= 1 to N do

begin

a[i]:= random(101)-50;

write(a[i],' ')

end;

writeln;

write('C = ');

readln(C);

write('D = ');

readln(D);

write('Элементы, которые принадлежат отрезку [',C,',',D,']: ');

for i:= 1 to N do

if (a[i]>=C) and (a[i]<=D) then write(a[i],' ')

end.