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.