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('');
begin
Writeln(27*2.5-554/152+48)
end.
Результат: 111.855263157895
в первом случае 5, во втором 8.