Решение задачи: в течении года температура колебалась в пределах от
-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.