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

Program pr28 (Input, Output); 
Var 
X : Array [1..50] Of Real; 
N : Integer;
S : Real;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Вычисление суммы элементов линейной таблицы.'); 
Write ('Введите число элементов N: ');
ReadLn (N); 
WriteLn ('Введите элементы массива:'); 
For i := 1 To N Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X [i]);
End;
 
S := 0;
For i := 1 To N Do
S := S + X[i];
 
WriteLn ('Сумма элементов массива:S = ', S: 5: 2);
 
ReadLn;
End. 

Leave a Comment