var B: array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
readln(B[i]);
s:=s+B[i];
writeln(s);
end.
Объяснение:
var B: array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
readln(B[i]);
for i:=1 to 10 do
s:=s+B[i];
writeln(s);
end.
Объяснение: