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.

Answer 2

Вот пример кода на Delphi для определения среднего арифметического нечетных чисел в диапазоне от 50 до 100:

delphiCopy code
program AverageOfOddNumbers;

var
  Sum, Count, Number: Integer;

begin
  Sum := 0;
  Count := 0;

  for Number := 50 to 100 do
  begin
    if Number mod 2 <> 0 then
    begin
      Sum := Sum + Number;
      Inc(Count);
    end;
  end;

  if Count > 0 then
  begin
    Writeln('Нечетные числа от 50 до 100:');
    Writeln;

    for Number := 50 to 100 do
    begin
      if Number mod 2 <> 0 then
        Writeln(Number);
    end;

    Writeln;
    Writeln('Среднее арифметическое нечетных чисел: ', Sum / Count:0:2);
  end
  else
  begin
    Writeln('В указанном диапазоне нет нечетных чисел.');
  end;

  Readln;
end.

Этот код вычисляет сумму нечетных чисел в диапазоне от 50 до 100, а затем делит эту сумму на количество нечетных чисел, чтобы получить среднее арифметическое.