Question

Дан целочисленный массив из 27 элементов. Элементы массива могут принимать целочисленные значение значения от -20 до 20 – сведения о температуре за каждый день ноября. Опишите алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (температура опускалась ниже нуля). Если таких чисел нет, нужно вывести сообщение ″Таких чисел нет″. На языке паскаль. 15баллов

Answer 1

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(27,-20,20); a.Println;
  var max:=a.Where(t->t<0).DefaultIfEmpty.Max;
  if max=0 then Writeln('Таких чисел нет')
  else Writeln(max)
end.

Пример
6 2 14 16 -18 -18 -8 17 -9 12 8 16 4 -5 -3 11 17 -6 8 13 4 12 5 -4 -8 16 -8
-3

Answer 2

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

pascalCopy code
program MaxTemperature;

const
  N = 27;
  MinTemperature = -20;
  MaxTemperature = 20;

var
  temperatures: array[1..N] of integer;
  hasFreezingDays: boolean;
  maxFreezingTemperature: integer;
  i: integer;

begin
  hasFreezingDays := false;
  maxFreezingTemperature := MinTemperature - 1; // Initializing with a value lower than the minimum temperature

  // Input temperatures for November days
  writeln('Введите значения температуры за каждый день ноября:');
  for i := 1 to N do
  begin
    repeat
      write('День ', i, ': ');
      readln(temperatures[i]);
    until (temperatures[i] >= MinTemperature) and (temperatures[i] <= MaxTemperature);
    
    // Check if there are freezing temperatures
    if temperatures[i] < 0 then
    begin
      hasFreezingDays := true;
      
      // Update maxFreezingTemperature if a new maximum freezing temperature is found
      if temperatures[i] > maxFreezingTemperature then
        maxFreezingTemperature := temperatures[i];
    end;
  end;

  // Output result
  if hasFreezingDays then
    writeln('Максимальная температура среди дней с заморозками: ', maxFreezingTemperature)
  else
    writeln('Таких чисел нет');
end.

Этот алгоритм сначала просит пользователя ввести значения температуры для каждого дня ноября. Затем он проверяет каждую температуру и находит максимальную среди тех дней, когда были заморозки. Если таких чисел нет, выводится сообщение "Таких чисел нет".