Вычислить.

[svobodys]

Дано натуральное число N.
Вычислить
1/sin1+1/sin1+sin2+...+1/sin1+...+sinN.


тоесть создаем массив для i от 1 до N.
а вот как дальше... и в код собрать...
Подскажите, если не трудно

[alex_fcsm]

Может Вы имели ввиду 1/sin1 + 1/(sin1 + sin2)+...+1/(sin1+..sinN)?

var i,j,n:integer;
    sum,d:real;

begin
writeln('Input n');
readln(n);
sum:=0;
for i:=1 to n do
 begin
  d:=0;
  for j:=1 to i do
   d:=d+sin(j);
  sum:=sum+1/d;
 end;
writeln(sum:8:5);
readln;
end.

[svobodys]

А, я немножко не так думал. Спасибо.
Вы за переменную i что брали?

[MalexG]

To alex_fcsm: я считаю, что второй цикл совершенно не нужен. Вот вариант:

var i, N:integer;
    sum, d:real;

begin
writeln('Input N');
readln(N);
sum := 0;
d := 0;
for i := 1 to N do
begin
  d := d + sin(i);
  sum := sum + 1/d;
end;
writeln(sum:8:5);
readln;
end.

[alex_fcsm]

MalexG согласен

[Ламер_001]

и проверку <>0 добавьте

[svobodys]

var i, N:integer;
sum, d:real;

begin
writeln('Input N');
readln(N);
sum := 0;
d := 0;
for i := 1 to N do
begin
d := d + sin(i);
sum := sum + 1/d;
end;
writeln(sum:8:5);
readln;
end.

Тоесть sinN у нас изменяется от 1 до N (это переменная i)

d- это 1/sin1

sum:=sum+1/d это sin1+...+sinN.

Правильно я понял?

[alex_fcsm]

Да. Вы правильно поняли