Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
Var s:int64;
a,b,i:longint;
beginassign(input,'d.in');
reset(input);
assign(output,'d.out');
rewrite(output);
s:=0;
read(a,b);
if odd(a) then i:=a else i:=a+1;
while i<=b dobegins:=s+i;
inc(i,2);
end;
writeln(s);
<span>end.</span>
Блок-схема - в прилагаемом файле.
Тестовый пример:
А = 10
5, -2, 6, -4, 7
Среднее арифметическое = (5-2+6-4+7)/5 = 12/5 = 2,4
PS. Возможно зацикливание (это зависит от вводимых чисел).