Дана таблица из 12 элементов. Составить подпрограмму для подсчёта количества элементов, значения которых >0, но <1 на за

///-Функция возвращает кол-во значений массива<1 и >0, находящихся на отрезке [b,c]
function Find(a:array of real;b,c:integer):integer;
begin
for var i:= b to c do
if ((a[i]>0) and (a[i]<1)) then Inc(Result);
end;
 
begin
var a:array of real;
var b:integer;
 
write('Введите кол-во элементов - '); readln(b);
SetLength(a,b);
 
for var i:= 0 to a.Length-1 do
a[i]:=random(0.0,8.0); //Заполняем массив слечайными вещественными значениями
 
write(Find(a,0,a.Length-1));
end.

program Project1;
const
  maxelem = 12;
type
  TArr1 = array [1..maxelem] of real;
 
function NumElemInInterval(arr: Tarr1; leftvalue,rightvalue: real; leftind, rightind: integer): integer;
// Процедура, которая подсчитывает количество отрицательных элементов в каждом столбце.
var
  i: integer;
  k: integer;
begin
  k:= 0;
  for i:= leftind to rightind  do
    if (leftvalue < arr[i]) and (arr[i] < rightvalue) then
      inc(k);
  NumElemInInterval:= k;
end;
 
 
var
  a: TArr1; // Переменная для хранения одномерного массива.
  j: integer; //  Вспомогательные переменные для организации циклов.
  leftbord, rightbord: real; //  Переменные для хранения значения левой и правой границ значений поиска.
  leftindex, rightindex: integer; // Переменные для хранения левого и правого индекса интвала поиска в массиве.
begin
  for j:= 1 to maxelem do
    begin
      //write('Введите значение ',i,' элемента: ');
      //Readln(a[j]);
      a[j]:= random(15)/10;
    end;
  writeln('Исходный массив: ');
  for j:= 1 to maxelem do
    begin
      write(a[j]:5:1);
      if j mod 10 = 0 then
        writeln;
    end;
  {Код который можно использовать, если требуется вводить значения вручную}
 { writeln('Ведите значение левой и правой границы поиска: ');
  Readln(leftbord, rightbord);
  writeln('Ведите значение левого индекса и правого индекса интервала массива для поиска: ');
  Readln(leftindex, rightindex);}
  leftbord:= 0;
  rightbord:= 1;
  leftindex:= 1;
  rightindex:= 7;
  writeln;
  writeln('Количество элементов, значения которых больше ',leftbord:0:1,' и меньше ',rightbord:0:1, ', на интервале от ',leftindex,' до ',rightindex,' индекса элемента: ', NumElemInInterval(a,leftbord, rightbord, leftindex, rightindex));
  leftindex:= 4;
  rightindex:= 12;
  writeln;
  writeln('Количество элементов, значения которых больше ',leftbord:0:1,' и меньше ',rightbord:0:1, ', на интервале от ',leftindex,' до ',rightindex,' индекса элемента: ', NumElemInInterval(a,leftbord, rightbord, leftindex, rightindex));
  Readln;
end.

function RangeCnt(const v: array of Real; a, b: Integer): Integer;
var r: Integer;
begin
  r:=0; for a:=a to b do Inc(r,Ord((v[a]>0) and (v[a]<1)));
  RangeCnt:=r;
end;
var
  a: array [0..11] of Real;
  i: Integer;
begin
  for i:=Low(a) to High(a) do a[i]:=2*Random;
  Write('A ='); for i:=Low(a) to High(a) do Write(a[i] :6:2); WriteLn;
  WriteLn('0<Ai<1, [1; 7]: ',RangeCnt(a,0,6),' [4; 12]: ',RangeCnt(a,3,11));
end.