Решение задачи: в течении года температура колебалась в пределах от
-20°С до +20°С, вывести на экран значения температуры за n дней (n
вводится с клавиатуры, значения температуры берутся случайным образом),
а затем отсортированные в порядке убывания значения температуры в эти
дни

program temp_za_dni_i_sort;

const

god=366;

var

t:array[1..god]of byte;

i, j, n, c :byte;

begin

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

read(n);

writeln('Значения температуры за ',n,' дней');

for i:=1 to n do

begin

t[i]:=random(41)-20;

write(t[i],' ')

end;

writeln;

for i:=1 to n-1 do

for j:=i+1 to n do

if t[i]<t[j] then

begin

c:=t[i];

t[i]:=t[j];

t[j]:=c;

end;

writeln('Отсортированные начения температуры за ',n,' дней');

for i:=1 to n do

write(t[i],' ')

end.