суммы членов числовой последовательности

[tonic]

как найти суммы членов числовой последовательности пожалуйста

[Yurk@]

Если она (последовательность) как массив то:

procedure TForm1.Button1Click(Sender: TObject);
var
i, Sum :integer;
Posl :array [0..10] of integer; //масив из целых чисел
begin
Sum:=0; //обнуляем сумму
for i:=0 to Length(Posl) do //ставим перебор каждого члена
begin
Posl[i]:=Random(100); //заполняе масив случайнымии числами от 0 до 100
Sum:=Sum+Posl[i]; //считаем сумму
end;
ShowMessage(IntToStr(Sum)); //выводим сумму
end;

А если как строка:

procedure TForm1.Button1Click(Sender: TObject);
var
i, Sum :integer;
Posl :string;
begin
Sum:=0;
Posl:='1234';
for i:=1 to Length(Posl) do
begin
Sum:=Sum+StrToInt(Posl[i]);
end;
ShowMessage(IntToStr(Sum));
end;

Все аналогично, только строку мы заполняем вручную.

P.S. Сильно извеняюсь - не посмотрел на раздел! Удалите плиз!

[Pavel55]

Вариант 1

=СУММ(A1:A10)

Вариант 2

Sub Макрос1()
Dim iResult As Single
    iResult = WorksheetFunction.Sum(Range("A1:A10"))
    MsgBox "Сумма чисел в диапазоне А1:А10 равна: " & iResult, vbInformation, "Сумма"
End Sub