Question

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

Answer 1

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.