Решение на Pascal:

var mas:array [1..31] of integer;

i:integer;

min,max:integer;

begin

min :=100000;

for i:=1 to 31 do begin

writeln ('Введите температуру ',i,'-го дня');

readln(mas[i]);

end;

for i:=1 to 31 do

begin

if mas[i]<min then min :=mas[i];

end;

for i:=1 to 31 do

begin      

if mas[i]>max then max :=mas[i];

end;

writeln ('Минимальная температура= ',min);

writeln ('Максимальная температура= ',max);

end.