[Ildar-tsr]

Сообщение от 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);

Код:

b:= 0;
if (a[i]>=-100) AND (a[i]<=100)
then
...