Question

Определить среднее арифметическое нечетных чисел от 50 до 100.
Напишите код на языке Delphi.

Answer 1

Ответ:

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.