Question

Pascal ABC. В журнале метеостанции записаны ежедневные температуры воздуха в г. Минске за октябрь (случайные числа от 7 до 15). Найдите количество дней, когда температура достигала максимального значения и даты этих дней

Answer 1

Ответ:

var

 a := ArrRandomInteger(31,7,15);

 i :integer;

begin

 println(a);

 println('Кол-во max= ', a.CountOf(a.Max));

 i:=a.IndexMax;

 while i <= a.LastIndexMax do begin

   if a[i]=a.Max then println(i+1,' октября');

   inc(i)

 end;  

end.  

Answer 2

Для решения этой задачи в Pascal ABC, вам нужно создать массив, в котором будут храниться ежедневные температуры воздуха за октябрь. Затем вы найдете максимальное значение в этом массиве и подсчитаете количество дней, когда температура достигала этого максимального значения. Вот пример кода для этой задачи:

program MaxTemperatureDays;

const
  DaysInOctober = 31;

var
  Temperature: array[1..DaysInOctober] of integer;
  MaxTemperature, MaxTemperatureCount, i: integer;

begin
  // Заполняем массив случайными температурами от 7 до 15
  Randomize;
  for i := 1 to DaysInOctober do
    Temperature[i] := Random(9) + 7;

// Находим максимальную температуру и считаем количество дней с максимальной температурой
  MaxTemperature := Temperature[1];
  MaxTemperatureCount := 1;

for i := 2 to DaysInOctober do
  begin
    if Temperature[i] > MaxTemperature then
    begin
      MaxTemperature := Temperature[i];
      MaxTemperatureCount := 1;
    end
    else if Temperature[i] = MaxTemperature then
    begin
      Inc(MaxTemperatureCount);
    end;
  end;

// Выводим результат
  writeln('Максимальная температура в октябре: ', MaxTemperature);
  writeln('Количество дней с максимальной температурой: ', MaxTemperatureCount);
  writeln('Даты с максимальной температурой:');
  for i := 1 to DaysInOctober do
  begin
    if Temperature[i] = MaxTemperature then
      writeln('1 октября +', i - 1, ' дня');
  end;
end.

Этот код создает массив Temperature, заполняет его случайными температурами, находит максимальное значение и подсчитывает количество дней, когда температура достигает этого максимального значения. Затем он выводит результат, включая даты с максимальной температурой.