var
a:array[1..1000]of integer;
i,sum:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do begin
read(a[i]);
inc(sum,a[i]);
end;
writeln(sum);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a:array[1..1000]of integer;
i,sum:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do begin
read(a[i]);
inc(sum,a[i]);
end;
writeln(sum);
end.