Question

помогите дописать программу​

Answer 1

var b: array [1..100] of integer;

i,a,s:integer;

begin

 read(a);

 for i:=1 to a do

   read(b[i]);

 for i:=1 to 100 do begin

   s:=s+b[i]

 end;

 writeln(s);

end.