Ответы
Ответ дал:
0
Ответ:
program AverageOfOddNumbers;
var
Sum, Count, Number: Integer;
Average: Double;
begin
Sum := 0; // Инициализируем сумму
Count := 0; // Инициализируем счетчик чисел
// Проходим по числам в диапазоне от 50 до 100
for Number := 50 to 100 do
begin
// Проверяем, является ли число нечетным
if Number mod 2 <> 0 then
begin
// Если число нечетное, добавляем его к сумме и увеличиваем счетчик
Sum := Sum + Number;
Count := Count + 1;
end;
end;
// Вычисляем среднее арифметическое
if Count > 0 then
Average := Sum / Count
else
Average := 0;
// Выводим результат на экран
writeln('Среднее арифметическое нечетных чисел от 50 до 100: ', Average);
end.
Вас заинтересует
2 месяца назад
2 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад