Разрабатывать алгоритмы может исполняют

Question

Информатика: Разрабатывать алгоритмы может исполняют

Ivanprofi22 · Accepted Answer

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.