Вычислить сумму массива от 1 до 10 ... (в Delphi)

Для начала в теле программы в разделе переменных вводим исходные данные для массива. Должно выглядит так:

var

Form1: TForm1;

massiv:array[1 ... 10] of integer;

i, summ:integer; / / summ - это и будет сумма числе массива

Далее, наносим на форму кнопку (Button1). Программируем ее двойным нажатием на нее, введя такой текст кода:

summ:=0; / /обнуляем сумму

For i:=1 to 10 do / / от 1 до 10 ...

summ:=summ+massiv[i]; / / ... подсчитываем сумму чисел

ShowMessage (IntToStr (sum)); / /вызываем процедуру показа сообщения, где выводим на экран сумму массива.

//Функция IntToStr - преобразовывает числовое значение - в строчное.

После запуска программы - нажимаете кнопку и будет выводиться сообщение с суммой элементов массива.