var
a: array [1..10] of integer;
i,n: integer;
S: real;
begin
s:=0;
n:=2;
writeln('Введите элементы массива: ');
for i:=1 to 10 do
read(a[i]);
s:=s+(a[i]/n);
n:=n*2;
end;
write('Результат: ',S:0:2);
end.
