Элементы одномерного массива С(T) получаются расчетом по формуле С(T)= sqrt(T)* tg(2T),...

Question

Элементы одномерного массива С(T) получаются расчетом по формуле С(T)= sqrt(T)* tg(2T), где T- позиция элемента в массиве С(T). Определите, какая раз-ность двух соседних элементов в этом массиве (1-ый и 2-ой, 2-ой и 3-ий, 3-ий и 4-ый и т.д.) будет являться наименьшей. Сформируйте новый массив T(Y), состоящий из разностей пар элементов массива С(Т).
у меня есть начало,но я незнаю что делать дальше
Program massiv;
Const N=10;
Var Rmin: real;
I,j,i:integer;
T,C:array[1..N] of real;
Begin
For i:=1 to N do
Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write (C[i]:5:2, ‘ ‘);
End;
Rmin:=C[1]-C[2];
J:=1;
For i:=2 toN-1 do
If Rmin>C[i]-C[i+1] then begin
Rmin:=C[i]-C[i+1];
l:=i;

Answer 1

Program massiv;
Const N=10;
Var Rmin: integer;
j,i:integer;
C:array[1..N] of real;
T:array[1..2*N]of real;
Begin
For i:=1 to N do Begin
C[i]:=sqrt(i)* sin(2*i)/cos(2*i);
Write(C[i]:5:2, ' ');
End;
writeln('');

For i:=1 to N-1 do begin
T[i]:=C[i+1]-C[i];
T[N+i-1]:=C[i]-C[i+1];
end;

Rmin:=1;
for i:=2 to 2*N-2 do begin
if T[i]Rmin:=i;
end;

if Rminwriteln('naimenshaya raznost= ', Rmin+1, ' and ', Rmin, ' elementiv' )
else
writeln('naimenshaya raznost= ', Rmin-N+1, ' and ', Rmin-N+2, ' elementiv' );
end.