7. Для массива, описанного в примере 3.3, задайте значения случайными вещественными числами из интервала (–20; 10). Выведите значения температур для указанного диапазона дат. Пример вывода для диапазона дат от 1 декабря до 8 декабря:

1 декабря температура была = 9.4
2 декабря температура была = –11.8
3 декабря температура была = –16.6
4 декабря температура была = 8
5 декабря температура была = 0.9
6 декабря температура была = –9.3
7 декабря температура была = –11.5
8 декабря температура была = 6.6

Объявим массив T, состоящий из вещественных чисел real от 1 до 31. Создадим цикл от 1 до 31 и присвоим для дат случайные числа. Чтобы числа получились дробными, для функции random() укажем диапазон от -200 до 100, а затем разделим полученное число на 10.

var T: array[1..31] of real;
var n, m: integer;
begin
  for var i := 1 to 31 do
    T[i] := random(-200, 100)/10;
  write('От какой даты: ');
  readln(n);
  write('До какой даты: ');
  readln(m);
  for var i := n to m do
    writeln(i, ' декабря температура была = ', T[i]);
end.
Другие задания