Напишите программу, которая в последовательности целых чисел определяет среднее...

Question

Напишите программу, которая в последовательности целых чисел определяет среднее арифметическое нечётных чисел. Программа получает на вход целые положительные числа. Количества введенных чисел не известно.

Answer 1

uses crt;
var i,sum,k: integer;
begin
     sum:=0;
     k:=0;
     writeln('Вводите числа. 0 - конец последовательности');
     repeat
          read(i);
          if i mod 2=1 then begin
             sum:=sum+i;
             inc(k);
          end;
     until i=0;
     writeln;
     writeln('Среднее арифметическое нечетных чисел: ',sum/k:5:3);
end.

Comments

inc(k) - увеличение значение переменной в скобках на единицу.