Программа вычисления  суммы элементов линейной таблицы (вектора).

Program pr28 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..50] Of Real;       

Переменная X - массив действительных чисел

N             : Integer;              

Переменная N - число элементов массива

S             : Real;    

Переменная P - искомая сумма элементов массива

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Вычисление суммы элементов линейной таблицы.');       

Формулировка цели алгоритма

Write ('Введите число элементов N: ');        

Запрос ввода N - числа элементов массива

ReadLn (N);         

Ввод N

WriteLn ('Введите элементы массива:');     

Запрос ввода элементов массива

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного вводимого элемента

Begin    

Начало тела цикла

Write ('X[', i, '] = ');             

Вывод удобной подсказки

ReadLn (X [i]);    

Ввод очередного элемента - X[i]

End;      

Конец тела цикла

S := 0;    

Обнуляем переменную S, где будем накапливать сумму элементов

For i := 1 To N Do              

Цикл для i от 1 до N, где i - номер очередного элемента

S := S + X[i];        

К сумме все предыдущих элементов добавляем очередной элемент - X[i]

WriteLn ('Сумма элементов массива:  S = ', S: 5: 2);

Вывод полученного значения суммы

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.