Question

в массиве хранится информация о температуре каждого дня октября, вывести на экран количество и латы тех дней, в которых температура ьыла выше среднего. /PascalABC.net/
температура должна выбираться через random​

Answer 1

Ответ:

Объяснение:

Ваше запитання виглядає як завдання для програмування мовою Pascal. Ось програма, яка вирішує це завдання:

pascal

Copy code

program TemperatureAboveAverage;

const

 DaysInOctober = 31;

var

 Temperatures: array[1..DaysInOctober] of Integer;

 TotalTemperature, AverageTemperature, AboveAverageCount, i: Integer;

begin

 TotalTemperature := 0;

 // Заповнюємо масив температур та рахуємо загальну суму

 for i := 1 to DaysInOctober do

 begin

   writeln('Введіть температуру для ', i, ' дня: ');

   readln(Temperatures[i]);

   TotalTemperature := TotalTemperature + Temperatures[i];

 end;

 // Знаходимо середню температуру

 AverageTemperature := TotalTemperature div DaysInOctober;

 // Рахуємо кількість і виводимо дні з температурою вище середньої

 AboveAverageCount := 0;

 writeln('Дні з температурою вище середньої: ');

 for i := 1 to DaysInOctober do

 begin

   if Temperatures[i] > AverageTemperature then

   begin

     writeln('День ', i, ' (', Temperatures[i], ' градусів)');

     Inc(AboveAverageCount);

   end;

 end;

 writeln('Загальна кількість днів з температурою вище середньої: ', AboveAverageCount);

end.

Ця програма питає користувача ввести температуру для кожного дня жовтня, а потім обчислює середню температуру та виводить кількість і дні, коли температура була вищою за середню.

Будь ласка, переконайтеся, що ви використовуєте PascalABC.net або інший Pascal-сумісний компілятор для запуску цієї програми.