[freedomman]

как то так

Код:

for i:=1 to n do
if (a[i]>=-100) or (a[i]<=100)
then 
b:=b+1;
label.caption:='количество элементов диапозона [-100,100]= '+inttostr(b);