Question

Напишите программу на паскале.Синоптики фиксировали дневные температуры в течение месяца, (случайные числа от 20 до 30) составьте программу для нахождения максимальной минимальной температуры за месяц.
ПРМОГИТЕ ПОЖАЛУЙСТА ЭТО КАПЕЦ

Answer 1

Код:
program TemperatureAnalyzer;

const

 DaysInMonth = 30;

 MinTemperature = 20;

 MaxTemperature = 30;

var

 temperatures: array[1..DaysInMonth] of Integer;

 i, maxTemp, minTemp: Integer;

begin

 // Генеруємо випадкові температури для кожного дня місяця

 Randomize;

 for i := 1 to DaysInMonth do

   temperatures[i] := Random(MaxTemperature - MinTemperature + 1) + MinTemperature;

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

 maxTemp := temperatures[1];

 minTemp := temperatures[1];

 for i := 2 to DaysInMonth do

 begin

   if temperatures[i] > maxTemp then

     maxTemp := temperatures[i];

   if temperatures[i] < minTemp then

     minTemp := temperatures[i];

 end;

 // Виводимо результати

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

 for i := 1 to DaysInMonth do

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

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

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

 readln;

end.