Код написан в программе 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.
