Var a:array[1..9]of integer;
i,sum:integer;
begin
writeln("vvedite 9 elementov");
sum:=0;
for i:=1 to 9 do
begin
read(a[i]);
sum:=sum+a[i];
end;
writeln("summa vseh elementov = ",sum);
end.
если не заработает то
var a:array[1..9]of integer;
i,sum:integer;
begin
writeln("vvedite 9 elementov");
sum:=0;
for i:=1 to 9 do
read(a[i]);
for i:=1 to 9 do
sum:=sum+a[i];
writeln("summa vseh elementov = ",sum);
end.