var a:array[0..9] of integer;var i,sum:integer;begin for i:=0 to 9 do begin write('Vvedite chislo: '); readln(a[i]); sum:=sum+a[i]; end; writeln(sum); readln;end.
var a:array[0..9] of integer;
var i,sum:integer;
begin
for i:=0 to 9 do begin
write('Vvedite chislo: ');
readln(a[i]);
sum:=sum+a[i];
end;
writeln(sum);
readln;
end.