Question

Паскаль. Даны среднесуточные температуры в марте месяце (от-5.5 до +15.5), вывести их на экран, вывести самый холодный и самый теплый день и температуру на экран.

Answer 1

var

 t,min,max: real;

 i,tmin,tmax: byte;

begin

 min:=16; max:=-6;

 for i:=1 to 31 do

   begin

     readln (t);

     if t>max then

       begin

         max:=t;

         tmax:=i;

       end;

     if t<min then

       begin

         min:=t;

         tmin:=i;

       end;        

   end;

 writeln;

 writeln('Min: ', min, ',  day: ',tmin);

 writeln('Mxn: ', max, ',  day: ',tmax);

end.

Answer 2

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

pascalCopy code
program Температуры_в_марте;

var
  Температуры: array[1..31] of real; // Массив для хранения температур
  День: integer; // Переменная для хранения номера дня

begin
  // Ввод среднесуточных температур в марте
  for День := 1 to 31 do
  begin
    write('Введите среднесуточную температуру для дня ', День, ': ');
    readln(Температуры[День]);
  end;

  // Ищем самый холодный и самый теплый день
  var Самый_холодный_день, Самый_теплый_день: integer;
  var Минимальная_температура, Максимальная_температура: real;

  Самый_холодный_день := 1;
  Самый_теплый_день := 1;
  Минимальная_температура := Температуры[1];
  Максимальная_температура := Температуры[1];

  for День := 2 to 31 do
  begin
    if Температуры[День] < Минимальная_температура then
    begin
      Минимальная_температура := Температуры[День];
      Самый_холодный_день := День;
    end
    else if Температуры[День] > Максимальная_температура then
    begin
      Максимальная_температура := Температуры[День];
      Самый_теплый_день := День;
    end;
  end;

  // Вывод результатов на экран
  writeln('Самый холодный день в марте: День ', Самый_холодный_день, ', Температура: ', Минимальная_температура);
  writeln('Самый теплый день в марте: День ', Самый_теплый_день, ', Температура: ', Максимальная_температура);
end.

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