Question

Синоптики фиксировали дневные температуры в течение месяца (случайные числа от 20 до 30). Составьте программу для нахождения минимальной и максимальной температуры за месяц. ПОЖАЛУЙСТА, СРОЧНО дам 40 баллов
​

Answer 1

Ответ:

program Мінімальна_Максимальна_Температура;

const

 daysInMonth = 30; // Кількість днів у місяці

 minTemperature = 20; // Мінімальна температура

 maxTemperature = 30; // Максимальна температура

var

 temperatures: array[1..daysInMonth] of integer; // Масив для збереження температур

 i: integer; // Лічильник циклу

 minTemp, maxTemp: integer; // Змінні для мінімальної та максимальної температури

begin

 // Заповнення масиву випадковими температурами

 for i := 1 to daysInMonth do

   temperatures[i] := Random(maxTemperature - minTemperature + 1) + minTemperature;

 // Виведення температур за місяць

 writeln('Температури за місяць:');

 for i := 1 to daysInMonth do

   writeln('День ', i, ': ', temperatures[i]);

 // Знаходження мінімальної та максимальної температури

 minTemp := temperatures[1];

 maxTemp := temperatures[1];

 for i := 2 to daysInMonth do

 begin

   if temperatures[i] < minTemp then

     minTemp := temperatures[i];

   if temperatures[i] > maxTemp then

     maxTemp := temperatures[i];

 end;

 // Виведення результату

 writeln('Мінімальна температура за місяць: ', minTemp);

 writeln('Максимальна температура за місяць: ', maxTemp);

end.