НЕТ ИНДЕКСНОГО СВОЙСТВА ПО УМОЛЧАНИЮ ДЛЯ ТИПА INTEGER
var c:integer;
a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:byte;
begin
readln(c);
write('a[',i,']=');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
begin
writeln('a[',i,']=',a[i]);
Readln (a[i]);
Write('b[',i,']=',b[i]);
Readln (b[i]);
Writeln('c[',i,']=',c[i]);
Readln (c[i]);
for i:=1 to 10 do
end;
begin
if (c[i]>a) and (c[i] end;
For i:=1 to n do
write('Кол-во элементов в диапазоне [',a,',',b,']: ',k);
end.

varc: array[1..10] of integer;a,b,i,k:byte;beginfor i:=1 to 10 do beginc[i]:=random(21)-10;write(c[i],' ');end;writeln;Writeln('a, b:');Readln (a,b);k:=0;for i:=1 to 10 do  if (c[i]>=a) and (c[i]<=b) then k:=k+1;writeln('Кол-во элементов в диапазоне [',a,',',b,']: ',k);end.Пример:-3 6 2 -8 -6 5 6 2 5 -9a, b:0 5Кол-во элементов в диапазоне [0,5]: 4