Показать сообщение отдельно
  #2  
Старый 17.05.2011, 23:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Здесь имеет смысл использовать цикл While.
С каждой итерацией у тебя значение очередного элемента будеи уменьшаться. цикл должен закончиться тогда, когда от прибавления очередного элемента сумма не изменится.
Ответить с цитированием