Question

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

Answer 1

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 (a<b): ');
readln(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 (a<b): 10 30
k = 8