Question

Нужно решить в паскале используя цикл.
номер 1 , 2 или 5

Answer 1

Ответ:

var

a: array [1..10] of integer;

i,n: integer;

S: real;

begin

s:=0;

n:=2;

writeln('Введите элементы массива: ');

for i:=1 to 10 do

begin

read(a[i]);

s:=s+(a[i]/n);

n:=n*2;

end;

write('Результат: ',S:0:2);

end.