Question

Уровень 4.PascalABC
Массив содержит результаты фиксирования дневных температур в течение месяца (случайные
числа в диапазоне от 20 до 30). Количество дней вводится с клавиатуры. Составьте программу,
определяющую максимальную и минимальную температуры за месяц.

Answer 1

Ответ:

Вот пример программы на PascalABC, которая выполняет ваш запрос:

program Temperature;

var

 n, i, temp, maxTemp, minTemp: integer;

 temperatures: array of integer;

begin

 write('Введите количество дней: ');

 readln(n);

 SetLength(temperatures, n);

 

 Randomize;

 for i := 0 to n - 1 do

 begin

   temperatures[i] := Random(11) + 20; // случайные числа в диапазоне от 20 до 30

   writeln('Температура за день ', i + 1, ': ', temperatures[i]);

 end;

 

 maxTemp := temperatures[0];

 minTemp := temperatures[0];

 

 for i := 1 to n - 1 do

 begin

   if temperatures[i] > maxTemp then

     maxTemp := temperatures[i];

   if temperatures[i] < minTemp then

     minTemp := temperatures[i];

 end;

 

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

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

end.

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