Program a1;
var a:array[1..1000]of integer; i,n,s:integer;
begin
write(n: ); readln(n); s:=0;
for i:=1 to n do begin write(a[,i,]: ); read(a[i]) end;
for i:=1 to n do s:=s+a[i]; writeln(s=,s); readln; readln
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.