Напишите программу, которая в последовательности целых чисел определяет среднее арифметическое нечётных чисел. Программа получает на вход целые положительные числа. Количества введенных чисел не известно.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
А что значит inc(k) ?
Ответ дал:
0
Ясно, я понял. Спасибо!
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад