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

Question

Информатика

Магдалина

8 октября, 11:53

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

+1

Ответы (1)

Знаете ответ на вопрос?

Тереза · 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.