Элементы одномерного массива С (T) получаются расчетом по формуле С

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