Элементы одномерного массива С(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;

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

For i:=1 to N-1 do beginT[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 beginif T[i]<T[Rmin] thenRmin:=i;end;

if Rmin<N thenwriteln('naimenshaya raznost= ', Rmin+1, ' and ', Rmin, ' elementiv' )elsewriteln('naimenshaya raznost= ', Rmin-N+1, ' and ', Rmin-N+2, ' elementiv' );end.