Задание 2. Массив содержит значения температуры в градусах Цельсия (числа от 1 до 20). Составьте программу перевода этих значений в градусы Фаренгейта по формуле T_F = 9/5 · T_C + 32. Выведите исходный массив, затем преобразованный массив с одним знаком в дробной части. Тип элементов исходного массива должен быть вещественный.

Массивы вещественные; Random(1, 21) формирует целые значения от 1 до 20. Формат :0:1 выводит один знак после запятой.

var c, f: array[1..10] of real;
begin
  writeln('Температура, °C:');
  for var i := 1 to 10 do
  begin
    c[i] := Random(1, 21);
    write(c[i]:0:1, ' ');
  end;
  writeln;

  writeln('Температура, °F:');
  for var i := 1 to 10 do
  begin
    f[i] := 9 / 5 * c[i] + 32;
    write(f[i]:0:1, ' ');
  end;
end.