Program Bla_bla; uses crt;

const n=10; {Кол-во элементов в массиве}
      intx=25; {Начало интервала}
      inty=50; {Конец интервала}
      int=[intx..inty]; {Интервал}

var vector:array[1..n] of integer;
    i,count:byte;

Begin clrscr;
Randomize;
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    Vector[i]:=Random(101);
    Vector[i]:=Vector[i]-50;
    Write(Vector[i]:5);
    end;
Writeln;

Count:=N; {По умолчанию, все элементы массива не принадлежат интервалу Int[intx..inty]}

for i:=1 to n do if (Vector[i] in Int) then Dec(Count); {Считаем кол-во элементов не принадлежащих интервалу Int[intx..inty]}

Writeln('Кол-во чисел не принадлежащих интервалу [',intx,'..',inty,']: ',Count);
Readln;
end.