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.

Answer 2

Для решения данной задачи на языке программирования Pascal, можно использовать следующий код:

pascalCopy code
program TemperatureSort;

const
  MinTemp = -20; // Минимальная температура
  MaxTemp = 20;  // Максимальная температура

type
  TemperatureArray = array of Integer;

// Процедура для вывода массива температур на экран
procedure PrintTemperatures(const temperatures: TemperatureArray);
var
  i: Integer;
begin
  writeln('Температуры за ', Length(temperatures), ' дней:');
  for i := 0 to Length(temperatures) - 1 do
    writeln(temperatures[i]);
end;

// Процедура сортировки массива температур в порядке убывания
procedure SortTemperatures(var temperatures: TemperatureArray);
var
  i, j, temp: Integer;
begin
  for i := 0 to Length(temperatures) - 2 do
    for j := i + 1 to Length(temperatures) - 1 do
      if temperatures[i] < temperatures[j] then
      begin
        temp := temperatures[i];
        temperatures[i] := temperatures[j];
        temperatures[j] := temp;
      end;
end;

var
  n, i: Integer;
  temperatures: TemperatureArray;

begin
  // Ввод количества дней n с клавиатуры
  writeln('Введите количество дней n:');
  readln(n);

  // Инициализация генератора случайных чисел
  Randomize;

  // Заполнение массива температур случайными значениями от MinTemp до MaxTemp
  SetLength(temperatures, n);
  for i := 0 to n - 1 do
    temperatures[i] := Random(MaxTemp - MinTemp + 1) + MinTemp;

  // Вывод исходного массива температур
  PrintTemperatures(temperatures);

  // Сортировка массива температур в порядке убывания
  SortTemperatures(temperatures);

  // Вывод отсортированного массива температур
  writeln('Отсортированные температуры в порядке убывания:');
  PrintTemperatures(temperatures);
end.

Этот код запрашивает у пользователя количество дней n, затем генерирует случайные температуры в пределах от -20 до +20 и помещает их в массив temperatures. После этого выводит исходный массив и сортирует его в порядке убывания, после чего выводит отсортированный массив.