Program Bla_bla; uses crt;

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

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; {По умолчанию, все элементы массива принадлежат интервалу [intx..inty]}

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

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