Всем привет!
У меня тут такая проблема, не могу составить правильно цикл или написать выражение..
Вообщем нужно вычислить вот что:
Дано число N=500 и массив nd[i] с элементами (9,13, 16,15,11,6)
И формула где нужно найти Ni
Ni=(N+(N-dn[1]))/2
Ni=(N+(N-dn[1])+(N-dn[1]-dn[2]))/3
Ni=(N+(N-dn[1])+(N-dn[1]-dn[2])+(N-dn[1]-dn[2]-nd[4]))/4........ ну и тд

Здесь не нужно фрмировать массив Ni просто постоянно вывадить его на печать.
Заранее спасибо

Можно так (m - количество элементов в dn):

s:=0;
t:=N;
for i:=1 to m do begin
  s:=s+dn[i];
  t:=(t+(N-s);
  Ni:=t/(i+1);
  WriteLn(Ni)
end;

А еще можно так..

for i:=1 to m do
  Ni:=N*(i+1); 
  for j:=1 to i do Ni:=Ni-dn[j]*(i-j+1);
  Ni:=Ni/(i+1);
  WriteLn(Ni)
end;

Выбирай, что больше нравится

Выделенная цифра правильная?

Нет там 3, торопилась