Question

Помогите с задачей по информатике, пожалуйста. Оформить на языке Паскаль.

Дан ряд от 1 до N. Найти среднее арифметическое нечётных чисел.

Answer 1

Ответ:

(см. объяснение)

Объяснение:

Короткое решение на PascalABC.NET:

##

var a:= ReadArrInteger(ReadInteger('Введите N:')).Where(x->x mod 2>0);

('Ответ: '+a.Sum/a.Count).Print;

Эффективное решение на PascalABC.NET:

var a, n, i, sum, col: integer;

begin

sum:= 0;

col:= 0;

write('Введите N: ');

readln(n);

write('Введите последовательность: ');

for i:= 1 to n do

begin

  read(a);

  if(a mod 2 > 0) then

  begin

     sum:= sum + a;

     col:= col + 1;

  end;

end;

writeln('Ответ: ', sum / real(col))

end.

Обратите внимание, что последовательность вводится сразу через пробел, то есть в строку.

Задание выполнено!