Решение задачи:Код написан в программе PascalABC.NET.const n = 10; //Пишем количество чисел в массиве.Var a: array [1..n] of integer; //Описание массива. i, sum: integer; beginsum:= 0;for i:= 1 to n dobegin write(\'a[\', i, \'] = \'); readln(a[i]); //Ввод целочисленного массива. sum:=sum+a[i]; //Вычисление суммы элементов введенного массива. end;writeln(\'Ответ: сумма равна \', sum); //Вывод на экран ответа.end.