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]<T[Rmin] then
Rmin:=i;
end;

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