Ответ:

Код написан в программе PascalABC.NET.

const n = 10; //Пишем количество чисел в массиве.

Var a: array [1..n] of integer; //Описание массива.

i, sum: integer;

begin

sum:= 0;

for i:= 1 to n do

begin

write('a[', i, '] = ');

readln(a[i]); //Ввод целочисленного массива.

sum:=sum+a[i]; //Вычисление суммы элементов введенного массива.

end;

writeln('Ответ: сумма равна ', sum); //Вывод на экран ответа.

end.