Вычислить массив R[1:n] в соответствии с формулой

program lab_01;
const lmax=30;
type mas=array[1..lmax] of real;
var x,h,a,sr:real;
i,n,np:integer;
r:mas;
begin
{Задание №1}
writeln ('Лабораторная работа №1');
writeln ('Задание №1');
repeat
write('Введите длину массива R от 1 до ',lmax,': '); 
readln(n)
until (n>0) and (n<=lmax);
writeln('Введите x,h,a:');
read(x);
read(h);
readln(a);
for i:=1 to n do 
r[i]:=5.5*sin(i*h)+cos(a*x+i*h);
writeln('Массив R из ',n,' элементов:');
for i:=1 to n do 
write (r[i]:3:2, ' ');
writeln;
end.

begin
  //A[0] - h; A[1] - a; A[2] - x;
  var A := ReadArrInteger(3);
  var &Array := ArrGen(ReadlnInteger('N:'), x -> 1).Select((x, i) -> 5.5 * Sin(i * A[0]) + Cos(A[1] * A[2] + i * A[0])).Where((x, i)-> (x > 0) and (x < i / 3)).ToArray();
  var i := &Array.FindLastIndex(x -> x < 0);
  &Array.Slice(i, 1, &Array.IndexOf(&Array.MinBy(x -> Abs(x)) - i + 1)).Println();
end.

begin
  //A[0] - h; A[1] - a; A[2] - x;
  var A := ReadArrInteger(3);
  var &Array := ArrGen(ReadlnInteger('N:'), x -> 1).Select((x, i) -> 5.5 * Sin(i * A[0]) + Cos(A[1] * A[2] + i * A[0])).Where((x, i)-> (x > 0) and (x < i / 3)).ToArray();
  var i := &Array.IndexOf(&Array.MinBy(x -> Abs(x)));
  &Array.Slice(i, 1, &Array.FindLastIndex(x -> x < 0) - i + 1).Println();
end.

&Array.Slice(i, 1, &Array.FindLastIndex(x -> x < 0) - i + 1).Average();

const lmax=30;
type mas=array[1..lmax] of real;
var x,h,a,s:real;
    n,i,j,imn,ipo:integer;
    r:mas;
begin
{Задание №1}
writeln ('Лабораторная работа №1');
writeln ('Задание №1');
repeat
write('Введите длину массива R от 1 до ',lmax,': ');
readln(n)
until (n>0) and (n<=lmax);
writeln('Введите x,h,a:');
readln(x,h,a);
writeln('Исходный массив');
for i:=1 to n do
 begin
  r[i]:=5.5*sin(i*h)+cos(a*x+i*h);
  write (r[i]:5:1);
 end;
writeln;
i:=1;
while i<=n do
if (r[i]>0)and(r[i]<i/3) then
 begin
  if i<n then
  for j:=i to n-1 do
  r[i]:=r[i+1];
  n:=n-1;
 end
else i:=i+1;
if n=0 then
 begin
  write('Все элементы удалены');
  exit;
 end;
writeln('Массив после удаления');
for i:=1 to n do
write(r[i]:5:1);
writeln;
imn:=1;
ipo:=0;
for i:=1 to n do
 begin
  if r[i]<r[imn] then imn:=i;
  if r[i]<0 then ipo:=i;
 end;
writeln('Первый минимальный элемент=',r[imn]:0:1,' его индекс=',imn);
if ipo=0 then
 begin
  write('Отрицательных элементов в массиве нет');
  exit;
 end;
writeln('Последний отрицательный в массиве=',r[ipo]:0:1,' его индекс=',ipo);
if abs(imn-ipo)<1 then
 begin
  writeln('Между первым и минимальным и последним отрицательным элементов нет');
  exit;
 end;
if imn>ipo then
 begin
  i:=imn;
  imn:=ipo;
  ipo:=i;
 end;
s:=0;
for i:=imn+1 to ipo-1 do
s:=s+r[i];
s:=s/(ipo-imn-1);
write('Среднее значение между первым минимальным и последним отрицательным=',s:0:1);
end.

const
  N = 10;
 
var
  &Array: array [1..N] of real;
  Exists: array [1..N] of boolean;
  NegativeI: integer;
 
begin
  var H := ReadlnInteger();
  var X := ReadlnInteger();
  var A := ReadlnInteger();
  
  for var i := 1 to N do
  begin
    var c := i * H;
    &Array[i] := 5.5 * Sin(c) + Cos(A * X + c);
    Exists[i] := true;
  end;
  
  for var i := 1 to N do
    if (&Array[i] > 0) and (&Array[i] < i / 3) then
      Exists[i] := false;
  
  var Min := real.MaxValue;
  var MinI := 0;
  for var i := 1 to N do
    if Exists[i] and (Abs(&Array[i]) < Min) then
    begin
      Min := Abs(&Array[i]);
      MinI := i;
    end;
  
  for NegativeI := N downto 1 do
    if Exists[NegativeI] and (&Array[NegativeI] < 0) then
      break;
  
  var Sum := 0.0;
  var Count := 0;
  for var i := MinI to NegativeI do
    if Exists[i] then
    begin
      Sum += &Array[i];
      Inc(Count);
    end;
  
  WritelnFormat('Среднее арифметическое равно {0}.', Sum / Count);
end.