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