Question

Даны значения температур каждого из n дней месяца (n<=31) Определить седнюю температуру за месяц. Вывести дни, когда температура была выше средней и количество таких дней одномерный массив паскаль

Answer 1

Ответ:

Учи уроки д3бил

Объяснение:

Самому думать надо

Answer 2

Вот пример решения данной задачи на языке Pascal:

pascalCopy code
program AverageTemperature;
const
  MaxDays = 31;
var
  temperatures: array[1..MaxDays] of Integer;
  n, i, sum, average, aboveAverageCount: Integer;
begin
  // Ввод количества дней месяца
  writeln('Введите количество дней в месяце (не более 31): ');
  readln(n);

  // Ввод значений температур для каждого дня
  writeln('Введите значения температур для каждого дня: ');
  for i := 1 to n do
  begin
    write('День ', i, ': ');
    readln(temperatures[i]);
    sum := sum + temperatures[i];
  end;

  // Вычисление средней температуры
  average := sum div n;

  // Вывод средней температуры
  writeln('Средняя температура за месяц: ', average);

  // Вывод дней, когда температура была выше средней
  writeln('Дни, когда температура была выше средней:');
  aboveAverageCount := 0;
  for i := 1 to n do
  begin
    if temperatures[i] > average then
    begin
      writeln('День ', i, ': ', temperatures[i]);
      aboveAverageCount := aboveAverageCount + 1;
    end;
  end;

  // Вывод количества дней, когда температура была выше средней
  writeln('Количество дней с температурой выше средней: ', aboveAverageCount);
end.

Это простая программа, которая сначала запрашивает у пользователя количество дней в месяце (не более 31), а затем запрашивает значения температур для каждого дня. После этого она вычисляет среднюю температуру за месяц и выводит ее, а также выводит дни, когда температура была выше средней, и количество таких дней.

Обратите внимание, что код представлен на языке Pascal. Если вы хотите использовать другой язык программирования, то может потребоваться некоторая адаптация кода.