Question

НЕТ ИНДЕКСНОГО СВОЙСТВА ПО УМОЛЧАНИЮ ДЛЯ ТИПА 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.

Answer 1

var
c: array[1..10] of integer;
a,b,i,k:byte;
begin
for i:=1 to 10 do 
begin
c[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 -9
a, b:
0 5
Кол-во элементов в диапазоне [0,5]: 4