Входные данные
n - количество элементов (n<=1000). Далее следуют n чисел.
Выходные данные
s - сумма всех чисел
Ввод
10
1 10 2 3 1 3 5 8 4 2
Вывод
39
Решение
var a:array [1..1000] of longint; n,i,s:longint; begin readln(n); //ввод n - числа элементов в массиве for i:=1 to n do //ввод чисел массива read(a[i]); for i:=1 to n do //подсчет суммы всех элементов s:=s+a[i]; writeln(s); //вывод суммы end.