Определить количество элементов массива, принадлежащих промежутку от a до b (значения а и b вводятся с клавиатуры; b>a) Паскаль

Const n=20;
var x:array[1..n] of integer;
a,b,k,i:integer;
begin
Randomize;
writeln(Массив:);
for i:=1 to n do begin
 x[i]:=random(51);
 write(x[i], );
 end;
writeln;
write(a, b (areadln(a,b);
k:=0;
for i:=1 to n do
 if (x[i]>=a)and(x[i]<=b) then k:=k+1;
writeln(k = ,k);
end.

Пример:
Массив:
27 5 38 46 22 2 0 22 17 49 28 30 33 16 6 33 35 33 14 2
a, b (ak = 8

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.