Вот вариант если надо найти среднее арифметическое из n нечётных чисел начиная от единицы.
На паскале:
program test;
var total:real; i, n:integer;
begin
write('Enter n: ');
readln(n);
total := 0;
write('(');
for i := 1 to (n + n) do
begin
if i mod 2 <> 0 then
begin
total := total + i;
write(i);
if i < (n + n - 1) then
write(' + ');
end;
end;
total := total / n;
writeln(') / ', n, ' = ', total:0:1);
readln();
end.
Работает примерно так:
Пользователь вводит количество нечётных чисел(например 5)
Дальше программа считает сумму первых пяти нечётных чисел начиная с единицы и одновременно выводит их
Дальше проиходит деление этой суммы на n(находится среднее) и вывод результата деления