Примечание:
Предполагалось ручное заполнение, не случайными числами. Предполагается ввод каждого элемента массива на новой строке, предполагается вывод суммы на следующей строке.
Использовался PascalABC.net 3.7
Исходный код:
const N = 10;
var
B: array [1..N] of integer;
i: integer;
s: integer;
begin
for i:=1 to N do
readln(B[i]);
for i:=1 to N do
s := s + B[i];
Writeln(s);
end.
